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INTRODUCTION 


This  information  Contained  within  this  document  satisfies  the 
requirement  for  a  f\r>al  report  of  the  Control  Display  Unit 
demonstration  unit.  The  final-report  describes  a  Control  Display 
Unit  which,  in  the  course  of  evolving,  changed  from  a  breadboard 
configured  unit  capable  of  physical  and  electrical  interface  to 
one  of  suitcase  configuration,  self-contained  with  dumby  responses 
as  required  for  presentation  purposes. 

It  is  the  intent  of  this  report  to  describe,  by  the  provision  of 
all  documentation  generated  during  the  contract  period,  the 
physical  and  electrical  elements  of  the  suitcase  Control  Display 
Unit.  - 
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Schematics,  Cards 
Schematics,  Display 
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ISIS-II  LHPER  V2.I  m  INVOTti  BY* 

L1MC  *FlsAH,«ftI.flBJ.sFl:mi.OW,:fl:INPUT.OBJ.iFl:flBSOIS.OBJ.sFi!C«.OW.  » 
*Fl*Wf.0&J.*FI*Uf.0BJ,sFl!Atf.0BJ.*FliCNV.0BJ.:Fl*AB94ll.CBJ,  l 
»F1*IFF.0BJ.  t 

«Fl*FILBlf.08J.:FlsGR!D.0W.:Fl:C0UDAT.C)8J.:Fl:FCNTM.C8J  V 
TO  *Fl*C0U.UK  t 
IMP  PRJKTCFi:aiU.IW>) 


LD*  HAP  FOR  :F1:CDU.UK(CDJ) 

SEGMENT  INFORMATION* 

START  STOP  LENGTH  Ra  NAME 


3UFH 

D 

cm 

342H 

• 

DATA 

7EH 

• 

STACK 

» 

IAH 

IBM 

A 

ABSOLUTE 

20H 

22H 

3H 

A 

ABSOLUTE 

24H 

24H 

3H 

A 

ABSOLUTE 

nruT  kous  incused* 

*F1*AB$MAI.0BJ(HAIN) 

*F1*CW.0BJ(CDU) 

IFUIM’UT.OBJUN) 

*Fl*ABSOIS.OBJ(DISP) 

<F1*COH.OBJ(COH) 

*FI*W.08J(Wf) 

iFUUF.OBJ(Uf) 

IFUAOF.OBJ(ADF) 

IFHCNV.OBJ(CNV) 

*F1*ABSHUI.08J(HUI0) 

IFHIFF.OBJUFF) 

IFHFUBUF.OBJIFIL) 

»Ft*GRID.OBJ(GRID) 

IFliGIMMT.OBJ(DAT)- 

*Fl*FONTDA>08J(FONTDA) 

UNRESOLVED  B1ERNAL  NAMES* 

IPOOM 

*0014 

ffOOM 

WVT1ICTOGO 

«POO» 

*0090 

*002? 

RMBUFB 

*0095 

*0023 

•ws 

* 0104 
*0091 
*0108 
*0070 
*0021 
URN 

DWUYPflESEXTPOSITICN 

DISPUYACTIVQMVPT 

*00* 

INI  TOW 

0NVBEARIN6 

Olttwr* 

DtMWfaE 


ISIS-11  LIfSTR  V2.1  NAS  INVOKED  BY: 

LIMC  :Fl:CW.lfK.  t> 

SFMMV5.0BJ. :Fi:tf«CAT.03J.  I 

PU30.UB.SYSTEf1.LIB  l  . 

TO  sFlsCtM.LfK  fW>  PflINTCFliOW/.MP) 


LDK  HAP  FOR  :Fl:DNV.LfK«MV) 

SEBEHT  INFORMATION: 

START  STOP  LENGTH  REL  NATE 


482BH  B  COOE 
FC3H  3  DATA 
AEH  B  STACK 


3H 

1AH 

IBH 

A 

ABSOLUTE 

20H 

22H 

3H 

A 

ABSOLUTE 

24H 

26H 

3H 

A 

ABSOLUTE 

DPUT  NODULES  INCLUDED: 
iFUCDU.LfiK(CIIU) 
IFIHWV.ORJIWW) 
:FI:DNV1.GBJ1DNV1) 
«Fi:DNV2.0BJ(DW2l 
«F1:DNV3.0BJ(DNV3) 
>Fi:IWV4.0BJ(DNV4> 
«Fi:DNV5.0BJ(tWV5) 
iFUDNVDAT.OBJ(DAT) 
nmo.uB«pooi4i 
PU80.LIB(tP0022) 
PU80.LIB(tP0023) 
PU80.UBTCP0029) 
FUe0.l!B(CP0034> 
PU«>.UB(CP0048) 
PUB0.LIB(tP0049) 
nm>.UB(CP0084> 
PUB0.UBIBP0089) 
PU80.LIB(«P0091> 
PUB0.LIB(tP0094) 
KM0.LIB(CP0098> 
PUe0.UB(ff0I03) 
nMO.LIB(«POIOS) 


ISIS-II  LOCATER  V2.1  INVOHI  SYS 
-  LOCATE  ORDER ( CODE , STACK . DATA . NEJ1W )  i 

H  CO£€(2SH)  $TACX(6000H)  DATA16030H)  STACkSIZE(3QH)  & 

M  RE3TWT0  t, 

f»  PWNTCFlsaiV.lOC)  HAP 

ichory  rtf  of  nodule  dnv 
READ  FRGN  FILE  :Fl:«,V.liK 
WITTEN  TO  FILE  sFJsEWV 
nOOlJUE  START  AOCffJS  0028H 

START  STOP  LENGTH  REL  NAME 

OH  2H  3H  A  ABSOLUTE 

3H  1AH  1EH  A  ABSOLUTE 

20H  22H  3H  A  ABSOLUTE 

2W  26H  3H  A  ABSOLUTE 

2SH  4852H  482BH  B  CUE 


SECURE  ROJO  LITERALLY  'SOH', 

R0U1  LITERALLY  '81H'. 

ROW  LITERALLY  '83)', 

ROC  LITE? ALLY  'SCH'  • 

ROM  LITERALLY  '84 H', 

ROC  LITERALLY  'KW'. 

R0U6  LITERALLY  '84H'. 

R0U7  LITERALLY  '87H'. 

ROC  LITERALLY  '8SH', 

C0L1  LITERALLY  'OA1H', 

C0L2  LITEFALLY  'OO'. 

C0L3  LITERALLY  '0A3H'. 

C0L4  LITERALLY  'CA4H', 

COLS  LITERALLY  '0A5H', 

C0.4  LITERALLY  '0A6H'. 

C0L7  LITERALLY  '0A7H'. 

C0L8  LITERALLY  '0A3H', 

C0L9  LITERALLY  '0A9H'. 

C0L10  LITERALLY  'OAJW'. 
can  LITERALLY  'CASH'. 

C0L12  LITERALLY  'OACH', 

C0LI3  LITERALLY  'OADH'. 

COL 14  LITERALLY  'OAEH'. 

COL1S  LITERALLY  'OAFH'. 

C0L16  LITERALLY  'OEOH', 

C0L17  LITERALLY  'OB1H'. 

COL 18  LITERALLY  '0B2H'. 

C0L19  LITERALLY  'OKU', 

C0L20  LITERALLY  'OB4H', 

C0L21  LITERALLY  '0B3H', 

C0L22  LITERALLY  '0B6H', 

C0L23  LITERALLY  'OB7H'l 

BECLARE  TRUE  LITERALLY  'OFFH'. 

FALSE  LITERALLY  'O'. 

FOREVER  LITERALLY  'WIL£  1'. 

SWITCH  LITERALLY  '40H', 

CNTLtOIGIT  LITERALLY  '81H', 
NOCLEARtCNTltOIGIT  LITERALLY  'OCW'. 
NOCLEAfitDIGIT  LITERALLY  '41H', 

DIGIT  LITERALLY  'I', 

OCTAL  LITERALLY  '2'. 

MORTwsarm  literally  '3'. 

EAST  WEST  LITERALLY 
OMWALfHA  LITERALLY  'S'. 

CLEARtSW  LITERALLY  '450'. 

BtTERtSU  LITERALLY  '470'. 

S0L40FF4SU  LITERALLY  '400'. 

OFFISH  LITERALLY  '530'. 

SUWOCttSH  LITERALLY  '40Q', 

LASTtSH  LITERALLY  '830', 

STEPISH  LITERALLY  '64Q'. 

CKPT  LITERALLY  'O'. 

TOT  LITERALLY  'I', 

BEGtSYH  LITERALLY  '22H'» 


Fl/N-60  COMPILER  WIN 


ISIS-II  PL/H-30  W3.0  COMPILATION  OF  WHILE  WIN 

OBJECT  NOOLU  PLACED  IN  :F1:ABSWI.0BJ 

COWIIER  INVOKED  BY!  PU£0  :  F 1 :  AKJ1AI  *  SBC  DATE(22I£C78> 


*TITl£('WIN'> 

1  WIN:  00! 

2  I  DECLARE  FOREVER  LITERALLY  'WHILE  t'S 

3  1  ADDSSUQ:  PROCEDURE (SUV)  EXTERNAL; 

4  2  DECLARE  SUV  BYTE; 

3  2  END; 

4  1  MITMARDUARE:  PROCEDURE  EXTERNAL; 

7  2  END; 

•  1  INITICOU:  PROCEDURE  EXTERNAL; 

92  END; 

10  1  CDU:  PROCEDURE  EXTERNAL; 

11  2  END; 

12  1  PROCESSISUITCH:  PROCEDURE  EXTERNAL; 

13  2  END; 


14  1  CALL  INIT4HARDUARE; 

13  1  CALL  INITtCOU; 

14  1  DO  FOREVER; 

17  2  CALL  CO); 

M  2  CALL  PROCESSSSHITCH; 

19  2  EM); 

20  1  END;  /*  HAM  */ 


NODULE  KF0RHATI0N; 

CODE  AREA  SIZE  *  0014H  200 

VARIABLE  AREA  SIZE  »  OOOOH  OD 

HAXIHUH  STACK  SIZE  *  0002H  2D 

23  LINES  REM) 

0  PROGRAH  ERROR(S) 


DO  OF  PITH-80  COTPILATION 


PL/N-BO  COMPILER  CRJ 


270CT7?  PAGE 


ISIS- II  PL/tl-80  V3-1  CWILATION  OF  MODULE  CO) 

OBJECT  MODULE  PLACED  IN  sFUCOU.OBJ 

COH’ILER  IN‘*CKED  BY!  PLMSO  iFliCCU.SRC  DATE  1 270CT79 )  DEBUG 


BTITLEIW) 

/•  CLEAR.  INITSCDU.  SUSPEND.  RESTART.  LIHITBTEST  »/ 

1  CDU*  SO; 

SNOLIST  INCUttCFUCDULIT.SRC) 

4  I  DECLARE  MOW  LITERALLY  'OFEH'. 

VERT  LITERALLY  'OFDM'; 

5  1  READ!  PROCEDURE (ICBSPTR)  EXTERNAL; 

4  2  DECLARE  ICBSPTR  ADDRESS; 

7  2  DC; 

I  I  CLEAR!  PROCEDURE (ROM)  EXTERNAL! 

7  2  DECLARE  ROM  BYTE; 

10  2  END; 

It  1  INSERT!  PROCEDURE f NCHAR . SCURCESPTR ,  CEST SPTR >  DEU1SCH . DELNSHASK )  EXTERNAL; 

12  2  DECLARE  (NCHAR.IELMFCH)  BYTE,  I  SCURCESPTR, CCSTSPTR.DEUtSMASK)  ADDRESS; 

13  2  END; 

14  1  UPOATESLINE)  PROCEDURE (ROW. COL, MUM FCH.PTR)  EXTERNAL; 

13  2  DECLARE  (ROW.COL.NUMSCH)  BYTE.  P7R  ADDRESS; 

U  2  END; 

17  1  DISPLAY;  PROCEDURE! ICBSPTR)  EXTERNAL; 

15  2  DECLARE  ICBSPTR  ADDRESS; 

19  2  END; 

20  1  GRID!  PROCEDURE(PTR)  EXTERNAL! 

21  2  DECLARE  PTR  ADDRESS; 

22  2  end; 

23  1  (KM7ESSCREEN;  PROCEDURE  EXTERNAL; 

24  2  EMM 

2$  1  IN1T1ALIZESSU0:  PROCEDURE  EXTERNAL; 

26  2  END; 

27  1  SCREENSINTENSITY:  PROCEDURE (LEVEL)  EXTERNAL! 

26  2  DECLARE  LEVEL  BYTE; 

29  2  END! 

3D  1  CLEARSLITEs  PROCEDURE(UNESNUM)  external; 

31  2  DECLARE  LINESNUI  BYTE; 

32  2  END! 

33  1  INITSVTf;  PROCEKJRE  EXTERNAL! 

34  2  EM); 

35  1  INITSUHFi  PROCEDURE  EXTERNAL! 

36  2  END; 

37  1  IN1TSADF:  PROCEDURE  EXTERNAL; 

38  2  EM)l 

39  1  INITSCNV!  PROCEDURE  EXTERNAL! 

40  2  EM); 

41  1  INI TSIFFt  PROCEDURE  EXTERNAL! 

42  2  EMM 

43  I  INITtOM  PROCEDURE  EXTERNAL! 

44  2  EMM 

45  I  WSSUBHOOE:  PROCEDtRE  EXTERNAL! 

46  2  00! 

47  I  DNVSSUBMODE:  PROCEDURE  EXTERNAL! 

48  2  END! 


PL/H-90  COMPILER  COU 


2JCCm  PACE  2 


49  1  IWJSUEflODE:  PROCEDURE  EXTERNAL: 

50  2  EM); 

51  1  IFFISLBMOOE;  PROCEDURE  EXTERNAL; 

52  2  END; 

53  1  ADF4SUEW0BE;  PTOCEIXFE  EXTERNAL; 

54  ?  EM); 

55  1  CNVtSUBDOCE;  PROCEDURE  EXTERNAL; 

56  2  EM); 

57  1  0ISPLAY4ACTIVEWAYPT:  PRCCEOEE  EXTERNAL! 

SB  2  EM); 

»  1  DISPWWRESEWPCSinON:  PWXSXJRE(RCW)  EXTERNAL; 

60  2  DECLARE  RON  BYTE; 

61  2  END; 

/•  EXTERNAL  VARIABLES  */ 

62  1  DECLARE 

0JRR£NT$DISP(9)  STRUCTUR£(OW?(24)  BYTE)  EXTERNAL. 

SUt INDEX  BYTE  EXTERNAL. 

SUV  BYTE  EXTERNAL, 

WfiSTATUS  BYTE  EXTERNAL. 

»RACTIVE*CHAN  BYTE  EXTERNAL, 

VtFRFREOIlO)  STRUCTUREIDICITSI4)  BYTE)  EXTERNAL. 

UFSSTATUS  BYTE  EXTERNAL. 

UF4ACTIVE4CHAN  BYTE  EXTERNAL. 

UftFREQ(lO)  STKUCTVRE<DIGITS<6>  BYTE)  EXTERNAL. 

ADFISTATUS  BYTE  EXTERN, 

ADF4ACT1VE4CHAN  BYTE  EXTERNAL, 

ADRFREQ(IO)  STEUCTURE(0IGITS(4)  BYTE)  EXTERNAL, 

OWSTATUS  BYTE  EXTERNAL, 

CMVtACTIVEtCHAN  BYTE  EXTERNAL. 

CNVSFREQ(IO)  STRUCTURE l DIGITS(5)  BYTE)  EXTERNAL. 

IFF4STATUS  BYTE  EXTERNAL, 

IFF4M44N0DE  BYTE  EXTERNAL, 

DNVISTATUS  BYTE  EXTERNAL, 

DNV4RANGE  BYTE  EXTERNAL, 

0NV4BEARING  BYTE  EXTERNAL, 

DNVITIfCITOtGO  BYTE  EXTERNAL! 

69  1  DECLARE  0FF«MTEXT!6>  BYTE  PUBLIC  DATA! 'OFFON  '» 

64  t  DECLARE  TEJMBUR24)  BYTE  PUBLIC; 

/•  BLAIKSU)£  PLACED  IN  LOU  CORE  TO  SAVE  A  FEU  BYTES  OF  PROM  */ 
69  1  DECLARE  DLAN<«LINE(24)  BYTE  PUBLIC  AT(3) 

DATA!'  'll 

66  1  OEAMTBWBUF:  PROCEDURE  PUBLIC; 

67  2  CALL  N0VE(24,.8LANK4LIIC>.TE7P4BUF)* 

66  2  EMM 

69  1  DECLARE  PRI4ENAELE4L1ST  STRUCTURE! 

SWHASKI7)  BYTE, 

SU$VALLE(4)  BYTE)  DATA! 

8SHi9CH,$0H,S3H,C, ISHtOt 
01H.23H.45H.66H); 

70  1  DECLARE  PRItICB  STRUCTURE! 

MODE  BYTE. 

MJMCH  BYTE. 

OELMtCH  BYTE, 


PL/H-80  CWP1LER  COU 


27QCT79  PACE  3 


OEUMWSK  ADDRESS. 

EDCKKOU  BYTE, 

ECK'tCOL  BYTE, 

SWEN6BLE  ADDRESS)  DATA(SWITCH,0,O.O.O.O..PRI*ENASLE*L!ST); 

71  1  DECLARE  PRISTA£LEAU(«I  BYTE  DATA! 

ROUO.'FH  '>0X12,  'DIN', 

R0Ul.CX13,'RC.E'.Ca23,/r, 

R0W2.  'UHF'.OXID, '  E'R', 

R0W3,C0L13,'TTG',CX23,  'K', 

ROW.'AIf', 

ROWB.'CNV'.CXtf.'IFF'.O)! 

72  1  DECLARE  DIGIT*KB4GRI0(»>  BYTE  PUBLIC  DATA! 

HORZ, 0,104, 22, 32, 

H0R2, 2, 104,52,72,92, 

HORZ, 92, 104, 42, 62, S2, 

HORZ, 110.122.22, 32, 42, 52, 42, 72, 82, 92, 

HOR 2, 128. 140, 22, 32, 42, 52,42, 72,82, 92, 

VERT,  32, 92, 2, 32, 62, 92, 

VERT, 22, 32.92, 104,110, 122, 128, 140, 

VERT. 42, 52, 104,110,122.125,1 40, 

VERT, 62, 72, 104,110. 122, 123, 140, 

VERT, 82, 92, 104, 1 10, 122, 123, 140, OPFH) ! 

73  l  DECLARE  SVBf10D£$GRID(»)  BYTE  PUBLIC  DATA! 

HORZ, 0,143,22,32, 

HORZ, 2, 122,52.72.92, 

VERT.32.92, 2.32,62,92. 122,  OfTTU! 

74  I  DECLARE  0IGITtt3$TABl£AU(»>  BYTE  PUBLIC  DATA! 

R0U2.CGL16,  'r,COL19,'2'.COL22,  '3', 

R0U4,C0L16.  '4'  ,0X19,  '5'  ,C0L22,  '6' , 

ROU6.COU6,  'V,  0X19,  '8'.CX22,  '9', 
ROB.CXlB.'C'.aXlP.'O'.CXZZ.'E'.O); 

75  1  DECLARE  0CTALW3*TAELEAU(»)  BYTE  PUBLIC  DATAI 

ROWiCXlB.'l'.CXlP, '2',CX22,'3', 

R0H4.CX16.  '4'.CX19,  '5'  .C0L22.  '6', 

MW6,CX16,'7', 

R0H8.CX16,  'C'.CX19,  'O'  ,C0L22.  'E'  ,0>? 


74  1  DISPLAY$DIGIT$HB:  PROCEDURE  PUBLIC! 

77  2  CALL  GRI0(.0IGIT$KF4GfiID)i 

78  2  CALL  DISPLAY! . DIGIT4KBJTABLEAU ) ! 

79  2  END! 


Pl/N-80  COMPILER  CCU 


♦EJECT 

80  1  DECLARE  COrtSTACKUO)  ADCFESS. 

CflUtSPV  ADDRESS. 

SYSiSPV  ADDRESS; 


81 

1 

INIT4CW):  PROCEDURE  PUBLIC: 

82 

2 

DISABLE; 

83 

2 

COWSTAdC(LET;GTH(C:i.’lSTfiO<)-n  =  .CDU4T0P; 

84 

2 

CDU4SPV  =  .  CC.J  •  1 T  k:  LENGTH  ( c:ut  stag;  )  -1 ) ; 

85 

2 

CALL  IMITIfUZEH-:; 

86 

2 

CALL  INIT9WF: 

87 

2 

C/U  INIT4LW: 

88 

2 

CALL  INITiADfi 

89 

2 

CALL  INITiCtWi 

90 

2 

call  INIT*IPF; 

91 

2 

CALL  IN1TMW; 

92 

2 

ENABLE; 

93 

2 

END!  /*  OF  IN1TSCDU  ♦/ 

94 

1 

SUSPEND:  PROCEDURE  PUBLIC; 

95 

2 

DISABLE: 

96 

2 

CDWSPV  *  STACKP7R; 

97 

2 

STACKPTR  *  SYS4SPV; 

98 

2 

ENABLE: 

99 

2 

END; 

100 

1 

RESTART:  PROCEDUFE  PV.BLIC; 

101 

2 

DISABLE; 

102 

2 

CDWSTACXILENGTHICIWSTACK)  -  1)  =  .CDWTOPl 

103 

2 

CDUtSPV  •  .CDU*STACX(LENGTH(CDWSTAaO-l!l 

104 

2 

STACXPTR  *  SYSJ3PV; 

105 

2 

ENABLE; 

«./*-«  compiler  aw 
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107  1 

ioe  2 

109  2 


110  2 


111  2 


112  2 

113  2 

114  2 

115  2 
111  2 

117  2 

118  2 
119  2 


4EJECT 

ERROR:  PKXtM£(COX)  PUBLIC? 

DECLARE  CODE  BYTE? 

DECLARE  STEP4ENABLE  STRUCTURE! 

SWflASX(7)  BYTE i 
SWVALUE(l)  BYTE)  CM 
0.0,0. 0.4, 0.0,  /»  CLtARISM  */ 

OOH)S 

DECLARE  EWORSICB  STRUCTURE! 

KOE  BYTE, 

NLT1JCR  BYTE. 

DEUISCH  BYTE, 

DELfltNASK  ADDRESS, 

ECHO? ROM  BYTE, 

EDWCOL  BYTE, 

SM4ENABLE  ADDRESS)  DATA!SMITCH,0,0,0,0,0,.STEP*£NABL£): 

DECLARE  K3C0U)  BYTE  OATAiRCtG,  'INVALID  ENTRY', 0), 

MSG1 (•)  BYTE  OATAIROM’.'NO  UNALLOCATED  TARGETS', 0), 

HSG2<»)  BYTE  DATA(R0W2. 'NO  DATA  FOR  THIS  CKPT'.OIi 
DECLARE  R3G5ADD(3)  ADDRESS  DATA! -ttSSDO, ,HSGt,.«SC2); 

CAU.  H0YE(24,.CURRENTfDISP(2),.TE7P4BUF>,  /»SAVE  CURRENT  DISPLAY  ROW  2  •/ 
CAU.  CLEARtLINE!2>; 

(Mi  DISPLAY(HSG*ADD!CODE)); 

CALL  READ(.ERROfiflCB): 

CALL  CLEARtLINE(2)i 

CALL  UPDATE4LDE(2,0,24,,TEHP4BUF )!  /*  RESTORE  DISPLAY  ROM  2  ♦/ 

EW?  /•  OF  ERROR  */ 


I 


pun-x  cocos?  cw 


ZKcm  PAGE 


120  1 


121  2 
122  2 


123  2 
123  2 

127  2 

128  2 

129  3 

131  4 

133  4 

135  5 
137  5 

139  5 

140  4 

141  3 
143  6 
143  4 

147  4 

148  3 

149  4 

130  3 

131  4 
133  4 

133  4 

134  3 
137  2 

198  2 


(EJECT 

LIMT*TEST:  PROCEDURE  (BUFXPTRtfMMDIGlTSiHUHPTR.HAX^TR)  BYTE  PUBLIC! 

/*  THIS  PROCEDURE  PER-CFTS  A  LEXICOtfAFHlCAL  COf  ARISON  OF  A  TEXT 
STRING  WITH  TWO  OTHER  STRINGS  TO  DETErlllff  IF  T>€  ItJJWUN  STRING 
1$  HIHTIN  TIC  EO.Mi  SPECIFIED  BY  Tf£  G*H3<  TW. 

THE  DIGITS  ARE  EX-VINED  FROM  LEFT  TO  RIGHT. 

IT  IMS  WRITTEN  TO  CMFARE  ASCII  DIGIT  STRINGS  WITH  AAX  AND  BIN  STRINGS. 
A  VALUE  OF  1  IS  RETlRIfD  IFs 

HINJS7KING  <*  STRING  t=  JttXJSTRIHG 
AND  A  VALUE  CF  0  OTHERWISE.  */ 

DECLARE  HJUtDIGITS  BYTE, 

(R]F$PTR,  NIMPTR , HAX4PTR )  ADDRESS! 

DECLARE  IN. I)  BYTE. 

(8UF  BASED  BLHPTRMl)  BYTE, 

MIN  BASED  HlfrtPTRKll  BYTE, 

WAX  BASED  HAMPTRM1)  BYTE; 

IF  (BUF(O)  <  HINtOI)  OR  (BUF(O)  7  KAXtOll  TICN  RETURN  0!  /•  FAIL  «/ 

IF  NUMDIGITS  >  2  THEN  N  =  NU14DIGITS  -  2! 
ast  N  *  0! 

DO  I  -  0  TO  N! 

IF  NINd)  O  IttXd)  THEN  DO! 

IF  WIN(I>  <  8UF(I»  AND  IBUF(l)  <  IWXd»  TICN  RETURN  1!  /«  OK  t/ 
IF  SUFdl  *  MINdl  THEN  DO! 

IF  BUFII+1)  <  fltNII+I)  TICN  RETURN  0;  /♦  FAIL  */ 

IF  BUF4I+11  >  MINI  1*1)  TICN  RETURN  li  /•  OK  */ 

END! 

ESE  DO! 

IF  BUFdl  *  fMXd)  THEN  DO! 

IF  8UFI  1*1)  >  fttXddl  TICN  RETURN  0;  /*  FAIL  •/ 

IF  DUF(W)  <  NAXIId)  THEN  RETURN  I!  /#  OK  «/ 

EM); 

END!  /»  OF  aSE  DO  »/ 

EM);  /»  OF  IF  NINd)  O  RAX  (I)  TICN  DO  •/ 

ELSE  DO; 

IF  BUFII)  O  NINd)  THEM  RETURN  0;  /•  FAIL  */ 

IF  IBUFd+1)  <  HINd+11)  OR  (BUFd+U  >  HAXd+11) 

TICN  RETURN  0;  /»  FAIL  ♦/ 

EMI! 

END!  /*  OF  DO  I  *( 

RETURN  1!  /«  OK  » / 

END!  /t  OF  LIHITPTEST  »/ 


Pl/N-80  COPIUR  COJ 


270CT79  PACE  7 


159  1 

140  2 

141  3 


142  3 

143  3 

145  3 

144  3 
147  3 


148  2 

149  2 

170  2 

171  2 


172  2 

173  2 
175  2 
177  2 
179  2 

181  3 

182  3 

183  3 

184  2 
184  2 

188  3 

189  3 

191  3 

192  3 

193  2 


194  2 

195  2 

197  2 

198  2 

199  2 

200  2 
201  2 
202  2 


4EJECT 

OlSPlAYtCCUSSTATUS:  PROCQXTE; 

FOFNATtFKQ:PfiOC£MJF:E  (CHAN,  STATUS,  FREOtPTR,  NDIGITS.RQU,  COL.  HASK15 
OECLAFE  (CHAN, STATUS, NDIGITi.Kil.CCiL)  BYTE, 

(FRECtPTR.mao  ADDRESS; 

CALL  OEARtTEKW; 

IF  (STATUS  AND  200  >  0  THEN  TEWW(O)  *  '*'! 

CALL  INS£RT(NrHfiITS,FS£C5P7S+ChA,J*WIGITS,.TO!P*BUFa).'./,«ASK); 
CALL  lF’DATEtLIFE(fiOW,CtL,NDIuIT3+2,.TEfF’t£iJFl;  ■ 

EMDl 


CALL  FOWWT*FREQ(VHF*ACTIVE*CHAN,WF*STATUS..VHF*FREQ,4,0,3,2000H)S 
CALL  FORMAT 8Ff?EtHUHF*ACT I VE*‘SHAN . UHF4STATUS >  .IHF»FP£Q,4,2,3,1000H)5 
CAa  FOMTfrFtQMffACTr&a'MfirFiSrAnjS, .AtftFREQ,4,4,3,0>i 
CALL  FOWWT»FR£Q(CNV$ACTIVE>C}W),CNVJSTATUS,.CNV$FRE6,5,4,3,IOOOH); 

/•  DISPLAY  IFF  STATUS  LIIE  »/ 

CALL  CLEARiTFPIBUF; 

IF  (IFFtSTATUS  AND  20H)  >  0  THEN  TBWBUFIO)  *  '•'! 

IF  IFF4STATUS  THEN  TENPtElF(l)  =  'l'S 
IF  (IFFtSTATUS  AND  2)  >  0  THEN  TEMPtKJF<2)  =  '2'i 
IF  (IFF8STATUS  AND  4)  >  0  THEN  DO; 

TEJWBUFO)  «  '3'S 
TE1H8UF(4>  *  'A'*. 

DO); 

IF  (IFFtSTATUS  AND  10H)  )  0  THEN  TEfWBUF(5)  *  'C'J 
IF  (IFFtSTATUS  AND  8)  >  0  T®l  DO; 

TDWBOF (4)  *  M'S 

IF  IFFttMtnODE  THEN  TEHPtBUFtt)  *  'B'S 
£L SE  10MBUF17)  =  A'f 
ENDS 

CALL  UPDATEtUlE(4,  15,8,.TENPt8(JF)S 

/•  DISPLAY  DW  STATUS  »/ 

(ML  DISPLAYtACTIVEtHAYPT; 

IF  SHH0NVtSTATUS,4)  THEN  CAa  UPDATE«LIf£(0, 15,1. .('•»'))( 

CAa  INS£RT(4,.DW/tRF«GEi.TENP*BUFi'.'ilOOOH)S 
CAa  UPDATE  tLINEIl.  17, 5..TEP.P1BUF); 

CAa  UP0ATEtLINE(2,19.3,.DNVTBEARING); 

CAa  UPDATEtLIf€(3.19,3..CfiVtTIft$TOtGOIS 
CAa  DISPLAY4FR£SENTtP0SITIGN(8)! 

EMU  /•  OF  DISFLAYtCDUtSTATUS  »/ 
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•EJECT 


203 

1 

CZMCNMPF:  PROCEDURE; 

204 

2 

IF  SW  *  OFFISH  THEN  CPU.  SCFEENllMTOlSITYlO)! 

206 

2 

aSE  CALL  SCFfEfrt INTENS I  TYf  S>0 

207 

2 

EM) 

208 

1 

COUs  PROCEDURE  PUBLIC; 

209 

2 

DISABLE; 

210 

2 

SYS4SPV  «  STACXPTRi 

211 

2 

STACtfTR  *  CBWSPV: 

212 

2 

enable; 

213 

2 

em; 

214 

J 

aw*TT)p!  procedure; 

/•  GDERATE  PRIMRY  TABLEAU  •/ 

213 

2 

COM  CLEAR (0)1 

214 

2 

CALL  OISPLAYt.PRISTABLEAUII 

217 

2 

CALL  OISPLAYICOUtSTATUS; 

218 

2 

CAa  READ(.PRI«ICBl; 

219 

2 

DO  CASE  SUSINDEX; 

220 

3 

CALL  VWISUBMOKl 

221 

3 

CALL  BNVSSUEMOOE; 

222 

3 

CALL  IfftSUEMCZC; 

223 

3 

CALL  AOFtSUBROOE; 

224 

3 

CALL  OmWDDEl 

223 

3 

CAa  IFF4SUBMOOE; 

224 

3 

CAaCtWOWOFFl 

227 

3 

EMI  /»  OF  DO  CASE#/ 

/•  TERMINATE  COU  PROCESSING  «/ 

221 

2 

DISABLE; 

229 

2 

COU*STACK(L0CTH(COU*STACK)-I)  *  .CDWTOP; 

230 

2 

COUISPV  *  .CCWSTACXILEMTHICrWSTAClO-l); 

231 

2 

STACKPTR  «  SYStSPV; 

232 

2 

ENABLE; 

233 

2 

BOl  /•  OF  C0U4T0P  ♦/ 

234 

1 

90;  /»  OF  COU!  DO  •/ 

nui  uroRMATiom 

CODE  AREA  SIZE  *  0418H  15400 
VIARMLE  AREA  SIZE  *  007FH  1270 

MMIMfl  STACK  SIZE  *  OOOEM  140 
408  LUCS  READ 
0  PROGRAM  ERROR(S) 
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ISIS-U  PL/PI-SO  V3.0  COTILATICN  Of  WHILE  IN 

OBJECT  HXUE  PLACED.  IN  :F1:  INPUT.  OBJ 

COWIliR  INVOKED  BY:  PUBO  :Fl:  INPUT. SRC  DATE!21JW£7?>  DEBUG 


♦TITLE! 'ItffUT'l 

I  IN:  DO: 

♦NOLIST  1NCU*E!:F1:CH.LIT.SRC> 

4  l  OECLARE  PRIMARY!*  LITERALLY  '50Q'! 

9  1  SUSPEND:  PROCEDURE  EXTERNAL: 

4  2  EM): 

7  I  RESTART:  PROCEDURE  EXTERNAL! 

•  2  EM): 

9  1  IPDATESSCREEN:  PROCEDURE  EXTERNAL! 

ID  2  END: 

II  1  UPDATESLUE:  PROEDUR£!RCM,Ct!L,NCHAR,TEXTiPTR)  EXTERNAL! 

12  2  OECLARE  IROU.CGL.NCHAR)  BYTE.  TEXTVTR  ADDRESS: 

13  2  END: 

14  1  DECLARE  ICB4PTR  ADDRESS. 

ICS  BASED  ICBtPTfi  STRUCTURE! 
fOOE  BYTE,  /»  INPUT  NODE  t/ 

MUNICH  BYTE.  /Wffl  OF  CHS  TO  BE  IM>UT  •/ 
OELMCH  BYTE,  /»  DELIMETER  CHARACTER  «/ 

DELHSNASK  ADDRESS.  /*  DELIMETER  MASK  •/ 
eotmu  BYTE, 

ECHOtCOL  BYTE, 

SMENABLE4PTR  ADDRESS): 

/•  HISCELLAfCOUS  VARIABLES  V 

15  1  DECLARE 

IMNOOE  BYTE, 

UrUWDttBLE  BYTE. 

FIELMSIZE  BYTE, 

B1SP4L0C  BYTE. 

OISPMASK  ADDRESS. 

1NMEUKWSK  ADDRESS. 

CH4COUNT  BYTE. 

0ISP4BUF(16)  BYTE. 

C1EARSSTATE  BYTE! 

/•  GLOBAL  VARIABLES  */ 

14  1  DECLARE 

INMUFI14)  BYTE  PUBLIC. 

OATASENTERED  BYTE  PUBLIC. 

SWIM) EX  BYTE  PUBLIC. 

SUV  BYTE  PUBLIC! 


/•  DPUT  QUEUE  VARIABLES  •/ 

17  1  DECLARE  SU4QUEUE  BYTE: 

IB  1  ARWSUOI  PROCEDURE  (TEIP)  PUBLIC) 

/*  ADD  MEN  ENTRY  TO  INPUT  QUEUE. 

THIS  PROCEDURE  IS  CALLED  ffiOR  fOREGRUU®. 


-iL 


IS. '.I  dMjili 
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IF  n€  QUEUE  IS  FU1  T*  ENTRY  IS  IGNORED.  */ 

W  2  DECLARE  TEff  BYTE; 

>*  NOTE!  IffUT  PROCEDLRES  MODIFIED  TO  REDUCE  QUEUE  LENGTH  TO  ONE  ENTRY 

H€  INPUT  QUEUE  IS  EMBLED  ONLY  AFTER  THE  BACKGROUND  PROCESSING  HAS 

BEEN  COMPLETED  AND  Tt£  KEYBOARD  IS  POLLED.  THIS  PREVENTS  SPURIOUS  ENTRIES.  */ 

20  2  IF  ISMJQUEUE  >  OFFH)  AND  UPUTTENA8LE  T*N  SWQUEUE  *  TOP; 

22  2  ENOt  /•  OF  ADOiSHQ  */ 


23  1  REMOVESSUQ:  PROCEDURE  BYTE; 

/*  REMOVE  ENTRY  FROM  INPUT  QUEUE. 

A  VALUE  OF  OFFH  IS  RETURNED  IF  TPE  QUEUE  IS  EMPTY. 

THIS  PROCEDURE  IS  CALLED  FROM  THE  BACKGROUND  THEREFOR  INTERRUPTS 
MUST  BE  DISABLED  WHEN  MODIFYING  TIC  QUEUE  VARIABLES.  */ 

2i  2  DECLARE  SUQiTDP  BYTE; 


25  2  DISABLE; 

24  2  IF  SUSQUEUE  O  OFFH  THEN  DO: 

28  3  SUQtTEYP  «  SHWUEUE; 

29  3  SNMUEUE  *  OFFH; 

30  3  ENABLE; 

31  3  RETURN  (SWOT  TEN3); 

32  3  EM); 

33  2  ENABLE; 

»  2  BETURN(OFFH); 

35  2  END;  /*  OF  REMOVESSUQ  »/ 

%  1  INITIAL UEtSHQ:  PROCEDURE  PUBLIC; 

37  2  DISABLE! 

38  2  SMOUEUE  »  OFFH; 

39  2  enable; 

40  2  EM); 


PL/H-00  COTf  ILER  HfUT 


tEuECT 


41 

1 

OEARtlWWIELD:  PROCEDURE) 

/•  CLEAR  T*  OISFLAY  PJFFER,  INSERT  THE  ELI  METER  CHARACTERfS)  NO 

COMPUTE  THE  SIZE  OP  THE  INPUT  FiaO  (THE  NIMEER  OF  DIGITS  PLUS 
T*  NUMBER  OF  CELIMETER  CHARACTERS.)  ♦/ 

42 

2 

DECLARE  (I.N)  BYTE; 

43 

2 

CHtCOWT  *  OS 

44 

2 

OISPtLOC  >  0; 

45 

2 

OISPtMASK  *  8000H! 

46 

2 

.  CLEARtSTATE  *  TRUE; 

47 

2 

FIELD* SIZE  *  0 ; 

/»  THE  TEST  ON  NUMtCH  HAS  ADZED  TO  ALLOW  CLEARtltFUTtFIELO  TO 

K  INVOKED  MEN  THE  ITPUT  MODE  EQUAL  TO  ZERO  (SWITCH).  #/ 

48 

2 

IF  IQLNUItCH  >  0  THEN  N  *  ICB.NUMtCH  -  It 

50 

2 

ELSE  N  *  Ot 

51 

2 

DO  I  «  0  TO  Nt 

52 

3 

IF  (DISPtMASK  AND  INtCELMtMASK)  >  0  THEN  DO) 

51 

4 

DISPtBUF(FIELDtSIZE)  *  ICB.DELMtCH; 

55 

4 

FIELDtSIZE  »  FIELDtSIZE  ♦  It 

56 

4 

EWt 

57 

3 

DISPtMASK  *  SHR(DISPtMASK.l); 

58 

3 

INtBUFCI)  -  'O't 

59 

3 

OISPtBUF (FIELDtSIZE)  *  '?'! 

60 

3 

FIELDtSIZE  =  FIELDtSIZE  ♦  It 

61 

3 

ENDt  /*  OF  DO  I  ♦/ 

62 

2 

DISPtMASK  «  8000H; 

43  2 


so;  /•  OF  CLEAfitJWTIFlELD  ♦/ 


pun-ao  cw  il£r  urur 
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*JtCT 

44  I  READ:  PROCEDURE! ICBIABD)  PUBLIC: 

«S  2  DECLARE  ICBSAOD  ADDRESS: 

/t  INPUT  nOCE  CONTROL  VARIABLE  FORMAT: 

1C6.N0DE  AND  OFH  *  0  —  'SWITCH 

1  •=>  DIGIT 

2  «*  OCTAL  DIGIT 

IF  IIT  7  ■  1  MN  READ  RETURNS  AFTER  1C8.NUM4CH  DIGITS  HAVE  BEEN 
ENTERED  (ENTERS  NOT  REQUIRED). 

IP  BIT  4  *  1  THEN  TVE  IfffUT  FIELD  IS  NOT  CLEARED  UNTIL  AFTER  M 
FIRST  CHARACTER  HAS  BEEN  ENTERED. 

*/ 

44  2  IC84PTR  «  lCDtAODt 

47  2  INMODE  «  ICB.HODE: 

48  2  OATAIENTERED  *  FALSE; 

49  2  IN40EUKMSK  *  ICB.DQJWNASK: 

70  2  DLL  CLEAMINPUTSFIELDi 

71  2  IF  UWflODE  AND  40H)  *  0  THEN 

72  2  DU  UPOATEKINE(ICB.ECHO)RONtlCB.ECHOtCOLiFIELD4SIZE>.DISPtBUF): 

73  2  DLL  UPDATESSCFEEN! 

74  2  HFUT4ENA6LE  »  TRUE;  /♦  RESET  BY  MW  PROCEDURES  »/ 

75  2  DO  WILE  INPUTSENABLEi 

74  3  DLL  SUSPEND!  /*  WAIT  FOR  MW  #/ 

77  3  END: 

71  2  END:  /*  OF  READ  «/ 


{. 


m*  - 
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tEJECT 

79  1  PKQCESStSWlTCH:  PROCEDURE  PUBLIC: 

80  2  DECLARE  ENAltEtUSTIPTR  ADDRESS. 

ENAfcEtLIST  BASED  ENABLE tLISTtPTR  STRUCTURE ( 
SUtHAiXt7)  BYTE. 

SWVALUEU)  BYTE). 

W3C  BYTE. 

U.J.N.ROH.Ca.CHtf)  BYTE: 


81  2  PROCESS tCH:  PROCEDURE; 

82  3  ADWCH:  PROCURE (0))i 

83  4  DECLARE  CM  BYTE) 

/•  ADO  A  KU  CHARACTER  TO  THE  INPUT  BUFFER  AND  THE  DISPLAY  BUFFER 
(AVOIDING  IEL I(€T£R  CHARACTERS).  •/ 

84  4  CLEARtSTATE  -  TRUE: 

85  4  INtBUF(CHtCOUNT)  «  CH: 

80  4  CHSCOUNT  «  CHSCOUNT  ♦  It 

87  4  IF  (OISPtrtASK  (KB  WtKLMtV&O  >  0  OEM  DO) 

89  5  DISPtLOC  -  DISPtLOC  ♦  It 

90  S  END: 

91  4  DISPtBUF (DISPtLOC)  «  CHI 

92  4  DISPtLOC  -  OlSPtLOC  ♦  It 

93  4  DISPtMASK  «  SHRlDISPtMSK.lH 

94  4  CAU.  UPDATEtLI)€(ICB.ECWtROH.IC8.ECHOtCOL.FIELI(tSIZE..DISPtBUF)t 

4  END: 


95 


/•  OF  ADWCH  » / 


pl/m-so  axtiux  input 
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•EJECT 

96  3  REMOVE  *CH:  PROCEDURE; 

/»  INVOKED  IF  04  =  CTLEFRi. 

IF  CLEARtSTATE  *  TRUE  (T*  INJT1M.  STATE)  TVC  LAST  CHARACTER  ENTERED 
IS  DELETED  ttiB  CLEARtSTATE  SET  FALSE. 

If  CLEARtSTATE  »  FALSE  THEN  T«  ENTIFC  INPUT  FIELD  IS  DELETED.  */ 


f 

:  | 
!  | 


97  4  If  CWCOLNT  >  0  THEN  DO? 

99  5  IF  CLEARtSTATE  THEN  DOi 

101  6  CLEARtSTATE  =  FALSE!  /♦  CLEAR  ONE  OWMCTER  »/ 

102  6  CHtCOUNT  *  CHtCOUNT  -  li 

103  6  OISPtLOC  *  OISPtLX  -1! 

104  6  0ISPt8uF(0ISP»LX>  *  '?'! 

109  6  DISPtMASX  *  SHL10ISP4MASK.D! 

106  6  IF  WtSPmSK  AND  ICD.DELMtMASX)  >  0 

net  OISPtLX  *  OISPtLX  -  1! 

108  6  END!  /•  OF  IF  CLEARtSTATE  »/ 

109  9  aSE  DO; 

110  6  CALL  QJEAMINPISTtFIELO;  I*  CLEAR  DC  ENTIRE  FIELD  */ 

111  6  CLEARtSTATE  *  TRUE! 

112  6  end; 

113  5  CALL  UPDATEtLINEUCB.ECHOtRQU>IC8.ECHOtCOL>FIElDtSIZ£>.DISPtBUF)> 

114  9  EM); 

119  4  EM);  /•  OF  REMOVE  ♦/ 


/»  BEGIN  PROCESS »CH  CODE  «/ 


116 

3 

IF  Cm*  CLEAR1SW  TtCN  DOi 

118 

4 

CALL  REMOVE tCH; 

Ilf 

4 

CALL  UPOAIEtSCREENi 

120 

4 

RETURN! 

121 

4 

EM); 

122 

3 

IF  CHAR  *  ENTERtSW  THEN  DO; 

124 

4 

INPUTtENABLE  «  FALSE; 

129 

4 

RETURN; 

126 

4 

EMM 

127 

3 

DATAtENTERED  »  TRIE!  /«  FIRST  CHARACTER  RECIEVED  */ 

128 

3 

IF  CHtCOUNT  <  ICB.tUltCH  THEN  DO; 

130 

4 

CALL  MHKCH(CHAR);  /♦  ADD  THE  NEH  CHARACTER  •/ 

131 

4 

CALL  UPDATEtSCREEN; 

132 

4 

END; 

139 

3 

IF  (UNtMODE  AND  90H)  >  0)  AND  (CHtCOUNT  *  ICB.NUNtCH) 
DCN  WUTtENASLE  ■  FALSE: 

139 

3 

END!  /•  OF  PROCESStCH  *f 

)■ 


I 

!' 
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•ELECT 

136  2  OECODEIDlOntSU:  PROCEDURE  £'<!£; 

/•  THIS  FROCEBURE  DECODES  SUlTOtS  KEPRESC1TING  A  9-OICIT  KEYBOARD. 


137 

3 

THE  KAfRING  ISJ 

SNITCH  VALLES  DIGITS 

15(8)  -  17(8)  I  -  3 

25(8)  -  27(8)  4  -  6 

35(8)  -  37(8)  7  -9 

46(8)  0 

4518)  C 

47(8)  £ 

#/ 

DECLARE  (R,C)  BYTE! 

138 

3 

C  «  SUV  AND  7; 

139 

3 

R  *  $HR(SWVt3)  -  1! 

140 

3 

IF  IR  <  4)  AND  (C  >  4)  T>€N  DO; 

142 

4 

C  *  C  -  4  ♦  R»3! 

143 

4 

IF  C  *  11  TIEN  C  *  0; 

143 

4 

RETURN  (C  ♦  30H)i 

146 

4 

END; 

147 

3 

aSE  RETURN  (OFFH); 

148 

3 

END!  /*  OF  DECOOEtDIGmSU  t/ 

14? 

2 

DECLARE  CH  BYTE; 

ISO 

2 

DECODE 4GCTAL4SW:  PROCEDURE  BYTE; 

151 

3 

CH  «  DEOOCE4D1G1T4SH; 

152 

3 

IF  CH  >  'V  THEN  RETURN  (OFrHl! 

154 

3 

ELSE  RETURN  (CH); 

155 

3 

end; 

156 

2 

DEC0IE9DNV9ALPHA4SU!  PROCEDURE  BYTE; 

157 

3 

IF  (SUV  >  440)  OR  (SUV  <  100)  TTCN  RETURH(OFFH) 

1» 

3 

CH  *  SUV  ♦  39H; 

160 

3 

v  (ch  *  'v\  «  <ch  *  'on  net  retirnioffk); 

162 

3 

RETURN  ch; 

163 

3 

END;  /*  OF  DECODE MLPHAISU  */ 

164 

2 

DEC0DE4EAST4HEST4SU:  PROCEDURE  BYTE! 

165 

3 

IF  SUV  *  250  THEN  RETURN  'E"> 

167 

3 

IF  SUV  *  278  DEN  RETURN  'U'i 

169 

3 

RETURN  OFFH; 

170 

3 

END;  /#  OF  DECOtttEASTWESTFSU  »/ 

171 

2 

DECODE WORTH9SOUTH4SU:  PROCEDURE  BYTE; 

172 

3 

IF  SUV  »  148  TKN  RETURN  'N'l 

174 

3 

IF  SUV  •  368  THEN  RETURN  'S'; 

176 

3 

RETURN  OFFH; 

177 

3 

EM);  /•  OP  DECODE VCRTH4S0UTH4SU  */ 

fl/h-so  compiler  input  21JUNE79  page 
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/*  BEGIN  PWXESStiUITCH  CODE  ♦/ 


178 

2 

IF  NOT  INFUT4ENABIE  THEN  RETURN: 

180 

2 

SUV  *  REHOVEOO;  /«G£T  NEXT  CH  FROM  INPUT  QUEUE  */ 

181 

2 

IF  SWV  =  OFFH  THEN  RETURN;  /»  INPUT  t'JELE  EMPTY  ♦/ 

183 

2 

IF  INtNODE  O  SNITCH  THEN  CO; 

185 

3 

IF  (SUV  =  CLEAR4SH)  OR  (SUV  *  ENTERJSH)  T>EN  OttR  = 
ELSE 

187 

3 

DO  CASE  (INSWXE  AND  OFH)  -  1! 

188 

4 

CHAR  *  DECODEtDIGITtS-N; 

189 

4 

CHAR  *  DECOICIOCTALISH; 

190 

4 

CHAR  *  DECOOE$NORTH*SOUTWSN; 

191 

4 

CHAR  *  DECODEFEASTJ WEST $SN ; 

192 

4 

CHAR  *  DECODESDHVtALFHASSU; 

193 

4 

END; 

194 

3 

IF  CHAR  O  OFFH  TtEX  DO; 

196 

4 

CALL  PR0CESS4CH! 

197 

4 

return; 

198 

4 

END; 

199 

3 

END*.  /•  OF  IF  IWBODE  ...DO;  */ 

/»  INPUT  NODE  IS  NOT  •DIGIT*  OR 

IS  "DIGIT*  AND  DIGIT  SNITCH  NAS  NOT  PRESSED. 

TEST  FOR  SPECIAL  FUNCTION  KEY.  »/ 

200 

2 

I  -  SNV  -  PRINAflYiSU; 

201 

2 

IF  I  «  0  THEN  CALL  RESTART; 

/•  TT£  FOLLOWING  CODE  IS  BYPASSED  TO  REDUCE  IB10RY  REQUIREMENTS 
IF  I  <  6  THEN  DO? 

DO  CASE  I; 

CALL  RESTART; 

CALL  IFFAEJEK; 

CAU  ZEROICODE; 

GO  TO  A; 

GO  TO  A; 

GO  TO  A; 

CALL  RPLY!/ 

END; 

RETURN; 

A: 

end; 

•/ 

/*  MPUT  IS  NOT  A  SPECIAL  FUNCTION  SNITCH  SO  IT  RUST  BE  AN 
ENABLED  SNITCH.  I€TERH!«  RELATIVE  INDEX.  »/ 

203  2  ENABLE JLISTiPTR  *  ICB.SNSENABLEtPTR; 

204  2  RCM  *  SHR(SNV.3l; 

205  2  COL  *  SUV  AND  7; 

206  2  IF  COL  >  0  TTCN  NAS*  «  SMIldOH.COL); 

208  2  ELSE  HASX  *  BOH; 

20*  2  SUliWEX  *  0; 

210  2  IF  (BASK  AND  ENAELE$UST.SUINASMRON>)  >  0  TKN  DO; 

/•  DETERNIMC  TVC  INDEX  VALUE  OF  THIS  SNITCH  BY  COUNTING  THE  NLtffiER  OF 
I'S  IN  THE  HACK  HCROS  PRECEEDING  THE  BASIC  FOR  THIS  ROM.  »/ 
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212 

3 

IF  RON  >  0  TltN  DO! 

214 

4 

N  =  RON  -  l; 

215 

4 

DO  I  =  0  TO  N; 

216 

5 

MASK  =  ENAELE iL I ST. SUtMASK ! I 1 ; 

217 

5 

DO  WHILE  RACK  >  0: 

218 

6 

IF  (MASK  AND  SOH)  >  0  THEN  SWINC £1  *  SW$ INDEX  U 

220 

6 

MASK  *  SHL(RASK.l); 

221 

6 

END; 

222 

5 

END!  /*  OF  DO  I  */ 

223 

4 

END!  /*  OF  IF  ROW  >  0  »/ 

/»  COUNT  Tit  NUMBER  OF  l'S  IN  TOE  MASK  WORD  FOR  THIS  ROM  */ 

224 

3 

MASK  «  ENABUHIST.SWtfttaaROH); 

225 

3 

IF  COL  >  0  TIEN  DO! 

227 

4 

N  *  COL  -  l; 

228 

4 

DO  I  *  0  TO  N! 

229 

5 

IF  INASK  AND  80H)  >  0  T1£N  SNA INDEX  «  SWINZEX  ♦  1? 

231 

5 

MASK  «  SH.INASK.1); 

232 

5 

END;  7#  OF  00  I  ♦/ 

233 

4 

END;  /•  OF  IF  COL  >  0  */ 

234 

3 

I  *  SWINDEX/2;  /*SW  VALLE  NIBELES  ARE  PACKED  2  PER  BYTE.*/ 

235 

3 

IF  SWINDEX  THEN  SH4INBEX  =  ENABL£«LI$T.SW*VALUE(I>  AND  CFH' 

237 

3 

aSE  SM  INDEX  =  SHR(ENABL£SUST.SH$VALIEII)>4)> 

238 

3 

IIPUTSENASLE  =*  FALSE; 

239 

3 

END;  /»  OF  IFIHASK  AND  EMUMST...  */ 

240 

2 

END; 

1*  OF  PROCESStSWITCN  */ 

241 

1 

oo; 

/»  OF  IN:  DO  /* 

NODULE  IITORMATION: 

CODE  AREA  SIZE  =  0S3BH  13390 
VARIABLE  AREA  SIZE  *  0043H  670 

NUIHJH  STACK  SIZE  *  OOOAH  100 

419  LIfES  READ 
0  PROGRAM  ERROR(S) 
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ISIS-II  PL/M-30  V3.0  CCPPILATXCM  Cf  PCRlLE  OISP 

OBJECT  rtOCOE  PLACED  IN  :Fl:AK0I$.C8J 

corns?  INVOED  6¥:  PLMSO  :F1:A6S0IS.$RC  DATE(21JUE7?)  X6UG 


ITITIEI'DJSP') 

1  DISP!  00! 

/♦  CPU  DISPLAY  PROCEDURES  */ 

2  I  DECLARE  TREE  LITERALLY  'OFFH'. 

FALSE  LITERALLY  'O'! 

3  1  OECLARE  fiK*SUFA(II  BYTE  EXTERNAL- 

RMBUFB(l)  BYTE  EXTERNAL; 

4  1  DECLARE  BUW:$UIE(24)  BYTE  EXTERtW.; 

5  1  UTOATESRH:  PROCEPLRE  EXTERNAL! 

6  2  END; 

7  l  FILL4EUF:  PROCEDURE (ROM. COL, BLF4ADD.REF1EUF4AD0. NCHAR. MODE)  EXTERNAL; 

8  2  DECLARE  (ROU.COL, NOWS, MODE)  BYTE.  (BUFiADD.ftEFJBUFiADD)  ADDRESS; 

9  2  END; 

/#  THE  FOLLOWING  ARRAY  CONTAINS  TIE  ASCII  CHARACTERS  APPEARING  ON  THE 
NIIC  ROUS  OF  THE  DISPLAY.  ♦/ 

10  I  DECLARE  CURRENTMISPI?)  STHUCTURE(CHAR(24)  BYTE)  PUBLIC! 


11  1  IPDATE4SCREEN:  PROCEMJRE  PUBLIC; 

12  2  CALL  IPDATEIRfi;  /INITIATE  WA  TRANSFER  TO  REFRESH  ftftORY  «/ 

13  2  END; 


14  l  UPDATE4LINE:  PROCEDLRE(ROU,COL,NOW?,TEXT»PTR)  PUBLIC; 

/« nt  item  must  be  ascii  text  ♦/ 

13  2  DECLARE  ROW  BYTE,  /»  ROU  NUMBER  */ 

COL  BYTE.  /*  STARTING  COLUMN  NUMBER  */ 

NCHAR  BYTE.  /*  NUMBER  OF  CHS  TO  BE  UPDATED  ♦/ 
TEXTIPTR  ADDRESS;  /#  TEXT  STRING  STARTING  ADDRESS  »/ 
lb  2  DECLARE  CUR4PTR  ADDRESS; 

17  2  DECLARE  (TEXT  BASED  TEXT4PTRK1)  BYTE. 

(CHAR  BASED  CURiPWtl)  BYTE. 

I  BYTE1 

18  2  QWPTF  *  .CURR£NT$DISP(RCU). CHAR (COL); 

»  2  CALL  FILUBUFIROU. COL. TEXTIPTR. CURJPTR, NCHAR- TRUE); 

20  2  NCHAR  *  NCHAR  -  1! 

21  2  DO  1  «  0  TO  NCHAR; 

22  3  IF  TEITII)  O  '  '  THEN  CHAR(I)  *  TEXTII); 

24  3  so; 

25  2  END;  /♦  OF  LP0ATE4LIHE  */ 


2b  1  CLEAR:  PROCEDURE (ROU I  PUBLIC! 
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/»  CLEWS  BOTH  Tt£  Ci-RFENT  PISFLAY  BUFFER  AND  Tt€  REFRESH  HEttflY 
BUFFERS  FROM  THE  SPECIFIED  RCU  TO  I HE  LAST  RE*  (ROW  9). 

NOTE:  »W  UAYPOINT  DATA  OVERLAYS  RM8UFB.  »/ 

2  DECLARE  ROW  BYTE! 

2  DECLARE  (K>N)  WEfiESSi 


29  2 

31  2 

32  2 

33  2 

34  2 

35  2 

36  3 

37  3 
36  2 
39  2 

<0  2 


IF  ROH  *  0  THEN  K  *  O' 

ELSE  K  *  64  ♦  DOUBLEfROtmiMi 
N  *  1535  -  K; 

RMBUFAtK)  =  0! 

CALL  N0VE(N,.RM»EM:A(K),.Rf1$BUFA(K+lll; 

DO  N  *  K  TO  1535; 
m$BUFBIN)  =  RMBUFB(N)  AMD  OFCH; 

END; 

CURRENTIDISP (ROM). CHAR (0)  *  '  '; 

CALL  «0«:(215  -  R0«»24,.aJRF£NT»DI3P(R0H), 

.CURRENTtDISP(ROW) .CHARI  1 ) ); 


EM); 


41  1  OEARSLIIC:  PROCEDURE!  LIGNUM)  PUBLIC; 

42  2  DECLARE  UNE4NUB  BYTE; 

43  2  CALL  FILL4HJF(LI)£<NUHi0..ElAN)C$U)E,.CURfi£NT*DJSP(LINE  PAH)  >24,  FALSE); 

44  2  CAa  N0VEI24..BLAM(tLl)£..CU»£NTSDISP(llNE»HUn)); 

45  2  END; 
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OISP 


KJECT 

44  1  DISPLAY:  PROCEDURE:  IMFTR)  PUBLIC! 

47  2  DECLARE  INJfTR  AKF.ESS: 

A*  UNPACK  INPUT  TEXT  STRING  AND  FILL  CURRENT  DISPLAY  SUFFER  AND 
DC  REFRESH  HErtCPY  SUFFER. 

THE  INPUT  TEXT  STRING  IS  ENCODED  IN  THE  FOLLOWING  FORMAT: 

1.  BIT  7  *  0.  BITS  0  -  6  IS  AN  ASCII  CHARACTER. 

2.  BIT  7  «  I.  BITS  5,4:  KEY,  BITS  0  -  4:  N 

KEY  *  0  «>  ROW  :=  N 
KEY  *  1  *»>  COL  :=  N 

KEY  *  2  =*>  REPEAT  THE  TEXT  CHARACTER  N  TIKES. 

KEY  =  3  *=>  NOT  ASSIGNED. 

MOTE:  DC  FIRST  CHARACTER  IN  ANY  SEQUENCE  MUST  BE  A  ROM  SPECIFIER. 

DC  LAST  CHARACTER  IN  ANY  SEQUENCE  MUST  BE  A  ZERO  TERMINATOR.  */ 

48  2  DECLARE  LDCI24)  BYTE. 

(ROU.COL, IX.N.KEY.CH)  BYTE. 

(IN  BASED  IN4PTRM1)  BYTE! 


49  2  ICUSROU:  PROCSXRE; 

50  3  OECLARE  BEST4RTR  ADDRESS, 

(BEST  BASED  DESTIPTRHl)  BYTE, 
I  BYTE! 


SI 

3 

BEST4PTR  *  .CURRENTJDISPIRQU): 

32 

3 

CALL  FlLLtBUF{P0U.0,.UNE,DESTtm,24.VUe/i 

S3 

3 

DO  I  >  0  TO  23: 

94 

4 

IF  LMC(I)  O  "  THEN  DO! 

34 

5 

OEST(I)  *  LHEII):  /»  STORE  CH  IN  CURRENT  DISP  BUFFER 

S7 

5 

LIIC(I)  •"}  /*  BLANC  LIIC  FOR  NEXT  Tift  AROUND  */ 

SB 

3 

end: 

S9 

4 

EMI: 

40 

3 

ROM  *  n: 

41 

3 

COL  *  o: 

42 

3 

end: 

43 

2 

REPEAT:  PROCEDURE: 

64 

3 

OECLARE  1  BYTE! 

45 

3 

IF  (N  *  0)  OR  (N  >  241  THEN  RETURN: 

47 

3 

IF  N  ♦  COL  >  23  DCN  N  *  23  -  COL* 

49 

3 

IX  *  IX  +  i: 

7# 

3 

CH  *  IN(IX):  /«  GET  DC  CHARACTER  TO  BE  REPEATED  */ 

71 

3 

n  *  n  -  n 

72 

3 

DO  I  *  0  TO  N; 

73 

4 

LDC(COL)  »  CHi 

74 

4 

COL  >  COL  t  t: 

75 

4 

EM): 

74 

3 

EM): 

.  .  St.  -* 


Pi/H-ao  ccrrtiiR  disp  21june79  page  < 

REJECT 

/•  DEGIN  DISPLAY  COX  */ 


77 

2 

iitcio)  * ' /*  clear  nc  line  hjffer  */ 

n 

2 

CALL  nCVEl23..Ut;£,.LiNEU)iS 

79 

2 

ft*  *  INtO)  AND  IFH; 

80 

2 

ch  *  wins 

81 

2 

It  ■  IS 

82 

2 

ca * o: 

83 

2 

DO  WHILE  CH  >  OS 

84 

3 

IF  (CH  AND  80H)  *  0  THDI  DO! 

86 

4 

LlSEICa)  ■  CHS  /*  INSERT  1C1T  ASCII  CHARACTER  «/ 

87 

4 

01  •  COL  ♦  1? 

88 

4 

ENDS 

87 

3 

ELSE  DOS 

90 

4 

H  *  CH  AND  1FH ;  /*  PROCESS  CONTROL  CHARACTER  */ 

91 

4 

KEY  «  SSfitCH.SI  AND  3$ 

92 

4 

DO  CASE  KEYS 

93 

5 

CALL  SBttROUS  /*ROU  SPECIFIER  ENCOLNTEREO  #/ 

94 

5 

COL  *  Hi  /*CQLUHI  SPECIFIER  ENCOUNTERED  »/ 

95 

S 

CALL  REPEATS  /*REPEAT  SPECIFIER  ENCOUNTERED  */ 

9b 

S 

1  /•  NOT  ASSIGNED  */ 

97 

5 

END;  7*  X  DO  CASE  */ 

98 

4 

EM);  /«  X  ELSE  DO  «/ 

99 

3 

H  »  IX  ♦  IS 

100 

3 

0)  •  INI IX); 

101 

3 

BID;  /*  X  DO  WHILE  »/ 

102 

2 

CALL  )&«»:  /»  PROCESS  LAST  RON  */ 

103 

2 

END;  /«  X  DISPLAY  »/ 

PL/N-80  COfFILER  DISP 
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•EJECT 

INSERT:  PROCEDURE ( NCHAR ,  SOJRC£W>TR ,  DE3TIRTR , OEUttCH,  DELMVWSK ) 

PUBLIC; 

/•  COPY  CHARACTERS  FKW  A  SORCE  BUFFER  TO  A  DESTINATION  BUFFER  AND 
INSERT  A  DCLEfETER  CHAFACTER  UNDER  COTiTROL  OF  A  PAX  TrtE  PRIfKRY 
USE  OF  THIS  PROCEDURE  IS  IN  FORMATTING  DIGIT  STRINGS  FOR  PRESENTATION 
ON  TIC  DISPLAY.  NOTE:  TIC  MASK  CAN  SPAN  ONLY  14  BITS  BUT  TIC  NUMBER 
OF  CHARACTERS  THAT  MAY  EE  MOVED  IS  LIMITED  ONLY  BY  TIC  SIZE  OF 
TIC  BYTE  VARIABLES  INVOLVED.  ♦/ 

DECLARE  NCHAR  BYTE.  /♦NUMBER  OF  CHARACTERS  IN  TIC  SOURCE  BUFFER*/ 
SOURCE CP TR  ADDRESS. 

OESTSPTR  ADDRESS. 

OELMCH  BYTE. 

OEUKHASX  ADDRESS; 

DECLARE  (SOURCE  BASED  SOURCEtPTRHl)  BYTE. 

(BEST  BASED  DESWPTRMl)  BYTE. 

(I.LOC)  BYTE; 


107 

2 

LOO  *  01 

108 

2 

1  *  0; 

109 

2 

DO  WILE  I  C  NCHAR! 

110 

3 

IF  (DELM9MASK  AND  8000H)  > 

112 

3 

ELSE  DO; 

113 

4 

DEST(LOC)  *  SOURCE(I): 

114 

4 

1-1*1! 

113 

4 

END! 

116 

3 

OEUBMASK  »  SM.IDEUMMASK.1 

117 

3 

LOC  *  LOC  ♦  1! 

118 

3 

EM)! 

119 

2 

EM)!  /•  OF  INSERT  */ 

120 

1 

EM)!  /•  OF  DISP:  DO  •/ 

IOUE  I  (FORMATION: 

CODE  AREA  SIZE 
VARIABLE  AREA  SIZE 
MAXIMUM  STACK  SIZE  < 
191  LUCS  READ 
0  PROGRAM  ERROR(S) 


03DAH  9860 
01HH  2740 
OOOCH  12D 
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ISIS-n  Pl/H-80  V3.1  COMPILATION  of  MODULE  com 

OBJECT  MODULE  PLACED  IN  :Fi:COM.OBJ 

COtPILER  INVOKED  BY:  PLMSO  ;Fl:COM.SSC  MTE!300CTO>  DEBUG 


•TITLE! 'COM') 

1  COM:  DO! 

IN0L1ST  MCLUD£!:F1:CDULIT.SRC> 

4  I  ERROL:  PROCEDURE (CODE)  EXTERNALS 

5  2  DECLARE  CODE  BYTE; 

•  2  EM); 

7  1  CLEAR:  PROCEDURE (STARTIROU)  EXTERNAL! 

8  2  DECLARE  START***  BYTE; 

9  2  EM); 

10  1  GRID:  PROCEDURE (POINTER >  EXTERNAL; 

It  2  DECLARE  POINTER  ADDRESS; 

12  2  END; 

13  1  DISPLAY:  PROCEDURE! INPPTR)  EXTERNAL; 

14  2  DECLARE  IN1PTR  ADDRESS; 

13  2  END; 

16  1  READ:  PROCEDURE!  ICWPTR)  EXTERNAL; 

17  2  DECLARE  ICBSPTR  ADDRESS! 

18  2  END; 

19  1  UP0ATE4LHE:  PR0(HIJRE(R0«.Ca,NCHAR.TEXT4PTR>  EXTERNAL! 

20  2  DECLARE  (ROU.COL.NCHffi)  BYTE.  TEXT4PTR  ADDRESS! 

21  2  END; 

22  1  CLEARtTEMPJBUF:  PROCEDURE  EXTERNAL. 

23  2  END; 

24  1  INSERT:  PROC£DUR£(aHAR.SOURCE*PTR,OEST4P7R,DEU»CH,CELM*MASK>  EXTERNAL; 

25  2  DECLARE  (NCtfK.DEUttCH)  BYTE.  (SOURC£*PTR,DEST*PTR.DELMNASK)  ADDRESS; 

26  2  END; 

27  I  UPOATEtSCREEN:  PROCEDURE  EXTERNAL; 

28  2  END; 

29  1  DISPLAYtOlGITtKB:  PROCEDURE  EXTERNAL; 

30  2  END; 

31  1  LIHITJTEST:  PROCEDURE(BUF*PTR.N.M$DIGITS,HIN$PTR.HAX*PTR)  BYTE  EXTERNAL; 

32  2  DECLARE  (SUFtPTR.NINSPTR.NAXSPTR)  ADDRESS. 

NUHtDIGITS  BYTE; 

33  2  END) 

/t  LOCAL  VARIABLES  VHOOSE  VALUES  ARE  OBTAINED  FROM  THE  CURRENT 
CONTROL  BLOCK  (CNTLI  CR  COMPUTED  FROM  VALUES  HEREIN.  »/ 

34  1  DECLARE  ACT1VESCHAN  BYTE, 

LASTIACTIVE1CHPN  BYTE. 

PREWBASE4AD0  ADDRESS. 

FRE04SIZE  BYTE, 

FREMSUEtfUtSHNE  BYTE. 

INSERTlflASK  ADDRESS. 

FREQiniNIADD  ADDRESS. 

F8EQ4MAX4AD0  ADDRESS. 

MAWFREWICWADC  ADDRESS; 

/•  EXTERNAL  VARIABLES  */ 

DECLARE 

BLAPMU*<24)  BYTE  EXTERNAL, 
unarm;  byte  extewal. 


35  1 


Pl/H-90  COMPILER  con 


300CT79  PAGE  2 


DATA4ENTERED  BYTE  EXTERNAL. 

SUV  BYTE  EXTERNAL, 

TEfP4BJFI24>  BYTE  EXTERNAL. 

OPttOMTExm)  BYTE  EXTERNAL. 

SWtINDEX  BYTE  EXTERNAL. 

36  1  DECLARE  CNTUADD  ADDRESS! 

37  1  DECLARE  CNTL  BASED  CNTLSADD  STRUCTURE! 

LAfELtPTR  ADDRESS, 

ACTIVE4CHAWPTR  ADDRESS, 

LASTtACTIVEJCHANVPTR  ADDRESS, 

FREQ4PTR  ADDRESS. 

SIZE  BYTE, 

MASK  ADDRESS. 

IUNSPTR  ADDRESS, 

HAXtPTR  ADDRESS, 

HAN*FR£0*ICB$PTH  ADDRESS)! 

38  1  DECLARE  SUBMODEtLASTtENABLE  STRUCTURE! 

SWfW$K!7)  BYTE. 

SWVALIEU)  BYTE)  PUBLIC  DATAIO.0, 0.0,0, 0.90H.O)! 

39  1  DECLARE  SUBK)OESLASTSSTEPSENABLE  STRUCTURE! 

SWHASK17)  BYTE, 

SWVALUEU)  BYTE)  PUBLIC  DATA(0.0.0,0,0,0,99H,01H)i 

40  1  DECLARE  DIGITISELIICB  STRUCTURE! 

NODE  BYTE, 

NUntCH  BYTE. 

DELMCH  BYTE. 

DELMtMSK  ADDRESS, 

ECH04R0U  BYTE, 

EDD4C0L  BYTE. 

SWENABLE  ADDRESS) 

OATAINOCLEARtCNTLtOiGIT,  1 , 0, 0, 2, 3.  .SUBH0DE4LAST4STEP4ENABLE)  I 

41  1  DECLARE  PAGE04SWENABIE  STRUCTURE! 

SWHASK!7)  BYTE. 

SUt VALUE! 11)  BYTE)  DATA! 

O,0EEH,0EEH,0EEH,0,0,9SH. 

O0H.O1H.  1 1H.SH,  23H.  33H,  44H,  4SH,  55H.47H.80H)  1 

42  1  DECLARE  PAGE14SU4ENABLE  STRUCTURE! 

SWHA9U7)  BYTE. 

SUtVALUE(8)  BYTE)  DATA! 

O>QBH.0E0H.0E0H.0,0,9BN, 

OCH.01H,liH,22H,23H,33H.45H,60H)J 
/•  THIS  IS  INCLUDED  TO  INSURE  INITIALIZATION  OF  RAH  STORAGE  OF 
STAT4PACE4ICB.  */ 

43  1  DECLARE  INITIAL4STAT4PAGE4IC8  STRUCTURE! 

NODE  BYTE. 

NUMCH  BYTE, 

DELMCH  BYTE, 

OELMNASX  ADDRESS, 

ECHOtROU  BYTE, 

ECH04C0L  BYTE. 

SWENABLE  ADDRESS)  DATA! SWITCH. 0. 0, 0, 0, 0.  .PMXOiSUtQMI) I 

44  t  DECLARE  STAT4PACEIIC8  STRUCTURE! 

NODE  BYTE, 

NUHCH  BYTE. 

DELMCH  BYTE, 

DEIMflASK  ADDRESS. 


PLVK-eO  COflLER  C» 


ECHOtROU  BYTE. 
fiCHMOX  BYTE. 
gytEMABlE  ADDRESS) ? 


5 


* 
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SEJECT 

43  I  INITIALIZESCQK:  FROCEDUKEICNTLIPTR)  PUBLIC; 

/•  THIS  PROCEDURE  MUST  IE  INVC6ED  PRIOR  TO  ANY  OF  TK  FOLLOWING 

procedures. »/ 

46  2  DECLARE  CNTISPTR  ADDRESS; 

47  2  CALL  F»VE(9,.INITIALSSTATSFAGE*IC8,.STATiPAGESIC8); 

48  2  CNTUADO  *  CHTLtPTRi 

49  2  CALL  HOVE ( 1 . CNTL. ACT I VESCHANSPTR i . ACT I WE*ChAF4 ) • 

50  2  CALL  HOVEll.CNTL.tAiTSACTK'£SOWrtPTR..LAST*ACTI'£4CHAN); 

31  2  FREQSBASESADO  *  CNTL.FREGSPTR! 

32  2  FREOSSIZE  *  CNTL.SnE; 

53  2  R£MSUE*PLUS»0f£  *  FREOSSIZE  ♦  1; 

34  2  INSERTSHASK  *  CNTI.NA&; 

35  2  FREQSHINSADO  *  CNTL.MINJPTR; 

36  2  FREOSHAWADO  *  CNTL.NAXSPTR; 

57  2  (WrtfR£«IC8MD0  *  CNTl.ftfNSfRECSICBSPTR; 

SB  2  EM)t 


39  1  FREWAEC:  PROCEDURE  (CHAN)  ADDRESS; 

60  2  DECLARE  CHAN  BYTE: 

/»  CONFUTE  OFFSET  INTO  FOES  ARRAY.  »/ 

61  2  RETURN(FREO$BASE$ADD  ♦  CHAN  *  FREOSSIZE); 

62  2  END; 


63  1  DISPLAYSCHANSFREO:  PROCEDUREICHANSIX)  PUBLIC; 

64  2  DECLARE  CHANS  11  BYTE; 

63  2  CALL  OJEARSTErrSBUFl 

66  2  CALL  WWE(7..('CH-  F-')..TEIHBUF); 

67  2  CAIL  INS£RnFREQ$SIZE.FKE0SADD(CHANSIX),.TBtPlBUF(7>r/. JNSERTSNASKM 

68  2  TENPSBUFtf)  »  CHANSI1  ♦  30H; 

69  2  CALL  UPDATESLINE(2,0.13..TEH>SBUF); 

70  2  EMU  /»  OF  0I3PIAYSACTIVESCHAN  •/ 

71  1  UPOATESfREQ:  PROCEBUR£(CH#»IX)  BYTE! 

72  2  DECLARE  CHANSIX  BYTE: 

73  2  IF  LIHITSTESTt.INSBUF.FREQSSIZEiFREQSHINSADDtFREQSHAXSADD) 

THEN  DO; 

73  3  CALL  HOVE(FK£QS$IZE».INSBUFiFREQSAOfl(CHANSJX)); 

76  3  RETURN  TRUE; 

77  3  END; 

78  2  ELSE  DO; 

79  3  CAU  ERROR(O); 

80  3  RETURN  FALSE: 

81  3  EM): 

n  2  EM);  /•  OF  UPOATESFREO  »/ 


83  1 


LASTSFRE6;  PROCEDURE! 


PUN-80  COMPILER  COM 
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84  2 

85  2 

86  2 

87  2 


vT 


ACTIVE4CHAM  *  LA3T*ACTIVE$CHW 

CAU.  ICVE<l>.LA$TtACT!Y€5CWN.CNTL.  ACTIVE  JCHMrtPTR); 


CALL  OlSPUYtOWm^QtAaiVLSCMl); 


END;  /*  OF  LASTIFREQ  »/ 


\ 


■  /. . 


~  j  ,  ,\r 

v.  \  * 

r 


> 


/ 


pl/n-bo  corfiiiR  coi 


«-ECT 

88  1  CKVASEL:  PROCEDURE  PUBLIC; 

89  2  DECLARE  (  BYTEs 

90  2  DECLARE  CHAN13EL*TABL£AU(»)  BYTE  DATAS 

RttC.'CH-?'. 

KW.COLl.'OWT. 

WW.COU.'SEL'.O); 

91  2  CALL  CLEARS2I; 

92  2  CALL  DISPLAYIDIGITJKB; 

93  2  CALI  DISPLAYS. DSANSSELITABlEAU)! 

9*  2  I  »  OFFHS 

93  2  DO  forever; 

98  3  CALL  READS. BIGIT4SEL4IC8); 

97  3  IF  0ATA4ENTERED  THEN  DOS 

99  4  I  •  INSBUF(O)  -  30HS 

100  4  CfU  DISPLAY$CHAMFR£Q(1)S 

101  4  ENDS 

102  3  ELSE  IF  (SUV  *  ENTER4SU)  AND  (I  <  OFFH)  TtCN  DOS 

104  4  LAST4ACTIVE4CHAN  »  ACTIVE1CHAN! 

US  4  CALL  MOVES li.LAST$ACTIVE4CHWltCNTL.LAST*ACTISS4CHAMPTR)S 

108  4  ACTIVEtCHAN  *  Is 

107  4  CALL  N0VE(l..AC;iVE(CHAN.CNTL.ACTIVE*CHAN4PTR>; 

108  4  RETURNS 

109  4  ENDS 

IF  SW  -  SUBHOOE1SU  TVOS  RETURNS 

112  3  IF  SUV  -  CLEAA1SW  THEN  DOS 

114  4  CAU.  UPDATER  INE (2.7 iFR£QISI2EtPLU$$GtE> .  BLAIKRINE)  S 

113  4  I  «  OFFHS 

118  4  ENDS 

117  3  E»;  /•  OF  DO  FOREVER  t/ 

118  2  ENDS  /•  OF  CWWSEL  ♦/ 


88558SS888  88  88  5  225828S8382S8222522S 
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*ject 

U9  1  BSNJFREQ:  FROCEDURE(CHAN)  PUBLIC! 

120  2  DECLARE  CHAN  BYTE; 

121  2  DECLARE  BAN»FR£G*TAELEAUU>  BYTE  DATA! 

R0U3, COLS. 'HAT. 

R0W.C0L6.  'FREQ'. OK 

2  CALL  CLEARI2K 

2  CAa  DISPLAYtDIGITtKB; 

2  CALL  0I3PLAY(.(WJ!FR£C!iTA8L£AU)i 

2  CALL  OISfUYtCJttV.FSECKCHANK 

2  00  FOREVER! 

3  CALL  READ(HAN$FR£GtICBf ADD) ! 

3  IF  OATAtENTERED  AND  (SUV  *  ENTERIC)  THEN  DO; 

4  IF  UPDATEtFREQ(CHAN)  BEN  RETURN! 

4  DC! 

3  ELSE  IF  SUV  *  LASTISW  BEN  CAU  LASTtFREQ; 

IF  SUV  »  SU8H0DE4SU  THEN  RETURN! 

3  EMIT 

2  EMU  /*  OF  HAMFREQ  t/ 


1  PRSTtCHAN:  PROCEDURE  PUBLIC! 

2  SECURE  FRST*CHAMTAR£AU(#>  BYTE  DATA! 

ROO.'CH-r.COLS.'F-', 

ROW.CDLll.'PRST'. 

MU4,CDL11.'CHAB',0K 
2  DECLARE  I  BYTE; 

2  CAU  CLEARI2K 

2  CALL  DISPLAYtDIGITSKB! 

2  CAa  DISPLAY(.PR5T*CHANf TABLEAU)! 

2  CALL  READ(.DICIT«Sa*IC8l! 

2  IF  DATA4ENTERED  BEN  DO! 

3  I  *  IWBLF(O)  -  30Hi 

3  DO  WHILE  I  <  10! 

4  CAa  OISPLAY*CHAN*FR£Q(  I ) ! 

4  CAa  READIHANtFREMICBtADDK 

4  IF  DATAtENTERED  AND  (SUV  *  ENTEMSU)  BEN  DO; 

3  IF  UPOATEtFREQ(I)  BEN  1*1  +  1! 

3  EM); 

4  ELSE  DO; 

3  IF  SUV  *  SUBBODEtSU  BEN  RETURN; 

5  IF  SUV  s  LASTJSU  THEN  CAa  LASTtFREQ! 

3  IF  SW  «  STEP4SU  THEN  I  *  I  ♦  It 

3  EM)t 

4  EM);  /t  CF  DO  UHILE  «/ 

3  EM);  /*  OF  OATAtENTERED  ♦/ 

2  EM)t  /»  OF  PRSTtCJWN  •/ 


PL/M-80  (WILD?  COM 


JEJECT 


148 

1 

STAT4PACE!  PROCEDURE  PUBLIC* 

149 

2 

GENERATE4STAT4HEADEF:  PROCEDURE (PACE)! 

1T0 

3 

OECLARE  PAGE  BYTE! 

171 

3 

CAa  CLEAR(O). 

172 

3 

CAa  CLEAfiiTOftBUF; 

173 

3 

CAa  W£(3.CNTl. LABEL »P TRi  .TEMP4BUF); 

174 

3 

Ctu  MOVE!  14.. ('CHAN  STAT  /2' ) . .TEMF46UF(4) ) 

175 

3 

TEJf48lFU7>  *  PAGE  ♦  31H! 

174 

3 

CAa  lJP0ATE4LINE(O,4i2O,.TEJ!P4KJF)i 

177 

3 

OH;  /*  OP  GENERATEtSTATPCADER  #/ 

178  2  PR0CESS4PAGE:  PR0CmR£(PAC£*NUN.SW4a<ABUi?TR); 

179  3  DECLARE  PACEWUM  BYTE. 

1  BYTE. 

SWENABLE4PTR  ADDRESS! 

180  3  DECLARE  PAGEIMAPI2)  STRUCTUEE (LIST! &>  BYTE)  DATAt 

0.3.1.4.2.5,  /«  PACE  1  »/ 

4,9.7. OFFH.8.0FFH)!  /*  PAGE  2  »/ 

181  3  DECLARE  SHSIMrtVtf)  STRUCTtJRE<LIST<6>  BYTE)  DATAT 

O.3.M.2.S.  /»  PAGE  1  «/ 

4.9,7,8.0.01!  /*  PAGE  2  «/ 

182  3  DECLARE  BYTE  MTAI4.4)! 


183  3  0ISPLAY4STAT4LI«:  PR0CEDLREILINE4NUMM 

1M  4  DECLARE  UNElNUh  BYTEs 

185  4  DECLARE  CHAN  BYTE; 

184  4  CALL  CLEARilOTIRJFS 

/•  FORMAT  LEFT  HALF  OF  LINE  #/ 

187  4  CHAN  =  PA0£«WP(PAG£»W.i(1).LIST(c!'€MM1*2)! 

168  4  TEfMBUFfO)  *  CHAN  »  30H! 

189  4  IF  CHAN  «  ACTIVE4CHAN  THEN  TEMP*SLF(l)  «  '•'! 

Itl  4  CALL  lN$ERTtFF£QlSIZE.FRE04ADD(CHAN),.TEJf4BUr(2),'.',IN$ERT*NASK)S 

/»  FORMAT  RIGHT  HALF  CF  Lift  ♦/ 

192  4  CHAN  *  PAGE4MAP(PAGEt)M1).LlST(LIN£4fUN»2  ♦  1)5 

193  4  IF  CHAN  O  OFFH  THEN  DO: 

195  5  TEfWHJF(U)  *  CHAN  ♦  30H! 

194  5  IF  CHAN  *  ACTIVE tCHAN  TPEN  TEIWBUFU2)  *  '»'?  - 

198  5  CALL  INSERT(FR£i43IZE'FR£0*ADDlCHAN)i.TEflP4BtJF(13).'.',INS£RT4MASIO 

199  5  EM)! 

200  4  CAa  (mraLmufCwun*2*2ii,2i,.wnBUF); 

201  4  END!  /*  OF  DI3PIAY4STAT4LI1E  ♦/ 


/»  BEGIN  PROtESSlPAOE  COt€. 

PAGE4M.il  AND  SWENAeLEIPTR  ARE  PASSED  AS  ARGLfCNTS.  ♦/ 

STATIPAGE4ICB.SHJENA8LE  *  SU4ENABLE4PTR! 

DO  FOREVER! 

CAa  GEHEFATE4STAT  W€AT€R  I PAGEK4H I T 
00  f  *  0  TO  2! 

CAa  OtSPLAYfSTATlLlrCd)! 


202  3 

203  3 

204  4 

205  4 
204  5 
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» 


207  5  EM); 

208  4  OU  READI.STAT4PAGEHCB): 

209  4  If  3MNI£*  <  MAXl'iaiXtF.'iEiM.l*'  THOi  do; 

211  5  CAU.  MAT.  SfTEO  ( SW*  U  *  t  PACt  *  SUM ) .  L I  ST  1  SVi*  )  >  t 


212 

S 

end; 

213 

4 

ELSE  If  SUV  =  SUBMODESSM  THEN  FETlKNi 
If  SUV  *  STEPtSW  DEN  RED.FNi 

217 

4 

If  SUV  *  LASTtoU  THEN  CALL  LASTlfREOi 

219 

4 

END.  /»  OF  DO  FCfEVER  */ 

220 

3 

END:  t*  OF  PROCESS  P«OE  »/ 

/•  BEGIN  STATJPAGE  CODE  »/ 

221 

2 

00  forever; 

222 

3 

CAU  Pfi0C£SS*PAG£(0. .PAGECfSWiENABLE) 

223 

3 

IF  SUV  *  SUBM0DE4SU  DEN  PETURN; 

22S 

3 

CALL  PROCESS*PAC£<I..PAC-£l*SWt£NABL£) 

224 

3 

IF  SUV  »  SUEM0IC1SU  THEN  RETLEN; 

228 

3 

EM). 

229 

2 

END;  /»  OF  STATSPAGE  */ 

Tf  W'lT  f<uj 

Call.  Lfisri  pefe/. ; 

CAui  Swap 

V  / 


230  1  SUAP:  PR0CEDUREIA4PTR,  MPTR)  PUBLIC; 

231  2  DECLARE  (A5PTR.  BSPTR)  AODFESS; 

232  2  DECLARE  A  BASED  AJPTR  BYTE. 

B  BASED  BJPTR  BYTE. 


T8YTE; 

233 

2 

T  ■  A; 

234 

2 

A  *  BJ 

235 

2 

b  *  T; 

236 

2 

END!  /•  OF  SHAP  ♦/ 

237 

1 

END;  /t  OF  COM  */ 

nOOULE  INFCRMATION: 

CODE  AREA  SIZE  *  0577H  13990 

VARIABLE  AREA  SIZE  «  002IH  45D 

MAXIMUM  STACK  SUE  *  OOtOH  140 
409  LINES  READ 
0  PROGRAM  ERROR(S) 

00  OF  PUB-80  COP1LATION 
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isi$- 1 1  pl  •!-;.•  r..\  -jn  :^y\  *.  »  i jjxz  /f 

ilia  »::u£  xtAto  i*  *:;•**•*- 

(MULES  IN.jED  St:  PUV.  r.-.M.JK.  3A!EC*»XT7-Si  Dt*£ 


•TITLE! 'W> 

/#  w  has  been  chwged  ro  read  a*  •/ 

1  Wf:  DO: 

•must 

4  I  INITIALIZEiCOM:  FRXE»«iWTi.lPTP'  EXTERNAL! 

3  2  DECLARE  CNTLJPTR  ADDRESS: 

4  2  END; 

7  1  CHAWSEL:  PROCEDURE  EXTERNAL: 

•2  END; 

•  |  nwMFKEQ:  PROCEDURE  I  WAN)  EXTERNAL! 

.  7  becu«  wan  byte; 

BIN 

«r«0«M:  PROCEDURE  EXTERNAL! 

I'M<:  mxaux  EXTERNAL: 

.  PROCEDURE (CHAN)  EXTERNAL! 

■«  ►  *» 

>  external;  .. 

•  > 

a 

«  *  •  -*m 

a  i 

»  2  ■* 

a  i  «»>•  * 

a  2  mam 

27  2  E»1 

28  I  REAIN  ««»*  *•* 

29  2  DECLARE  ICBIPTP  KM 

30  2  end; 

31  1  lPtt»TE*UNE:  PR0CEH«'«>»  a  - 

32  2  DECLARE  (ROU.COL.NWARl  BYTE.  H  * 

a  2  END; 

34  1  SNAP;  PROCEDURES,  B)  EXTERNAL: 

»  2  DECLARE  (A.  B)  ADDRESS: 

34  2  EM; 

/*  EXTERNAL  VARIABLES  #/ 
a  t  DECLARE 

OFFWWTEXTIB)  BYTE  EXTERNAL, 

SUV  BYTE  EXTERNAL, 

SU4INIEX  BYTE  EXTERNAL, 

SUBNODEHASTiSTEririAfiLE  AD  CPE  So  EXTERNAL, 
VWMCT1VE1CHAN  BfTE  EXTERNAL, 
lAST*VHttACTIVEiCHAN  BYTE  EXTERNAL. 

\»f*SIATUS  BYTE  EXTERNAL, 

VNFIFREO(IO)  STRICRE£(DIGITS(4!  BYTE)  EXTERNAL, 
SUSHODEKRID  ADDRESS  EXTERNAL! 


$  * 
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38  1 

39  1 


40  1 

41  2 

42  3 

43  3 

44  2 

45  2 

46  2 

47  2 


48  1 

49  2 


50  2 

51  3 


52  3 

53  3 

54  3 

55  3 

57  3 

58  3 

59  2 

60  3 

61  3 

62  3 

63  4 

64  4 

65  3 

67  3 

68  3 

69  2 

70  3 

72  3 

73  3 

74  3 


CECLARE  I  BYTE; 

DECLARE  niMFRE'iU)  BYTE  CATAl '3000' ). 
«HlfR£Q(4)  BYTE  KTA('75?5')i 

INITSVlf:  PROCEHJFE  PUBLIC! 

DO  1  -  0  TO  9! 

COL  H0VE(4,.flIH$FR£0i.W4fR£Q(I)); 
END! 

W4ACTIVE40W1  =  0! 
LASTfiWlACTIVEICHAN  *  0! 

VHF4STATUS  =  0! 

END! 


(MF4SU8NOOE:  PROCEDURE  PUBLIC; 

DECLARE  nANSFREQJlCB  STRUCTURE! 

NODE  BYTE. 

MJWCH  BYTE. 

DEUKCH  BYTE. 

DEUKNASK  ADDRESS. 

ECHWROU  BYTE, 

ECH04C0L  BYTE. 

SU4ENABLE  ADCRESS) 

DATA(NO*CL£AA»DIGIT. 4. ' . '  ■  2000H.2. 7.  .SUETOEtLAST4STEP*ENABL£> ! 


DISPLAY4STATUS:  PROCEDURE; 

DECLARE  N00E$TE1T(7)  STRUCTURE!CHS(6)  BYTE)  DATA! 

'  '.'T/R  '.'T/R*G  ','HON  VREIWW'.'  '.'FAIL  ')! 

I  >  SMi(VtF4STATUS,5)  AND  l; 

CAa  UPDATER.  IfE (1.0.3.. 0FFMN9TEXT (3*1)7? 

1  «  VIMSTATUS  and  ofh; 

IF  I  •  5  THEN  I  *  I  ♦  (SWIVHF4STATUS.4)  AND  1)5 
CAa  UP0ATEtLl)E(1.5.6..N0DE9TEXT(I)); 

EM)!  /•  OF  D1SPLAY4STATUS  »/ 

UPDATE WCOE:  PROCEDURE; 

DECLARE  9MUST.6)  BYTE  0)TA(300,320, 340, 350, 360,440)5 

I  *81 

n  umi  < ««  o  shwust(I))  and  ti  <  6); 
i  •  i  ♦  u 

Ml 

IF  1  <  4  nQ  I  .  I  ♦  I; 

*f»$TA,U  •  .*»37ATUS  AND  OFOH)  ♦  I; 

tm 


ONOFFi  *002* 

V  W  •  PM  V 

*m  «•••  •»"«  «  #f»$TATUS  ANO  OOFH!  /•  OFF  */ 

as  m%  •  mmytatus  m  ami  /•  on  ♦/ 

CAU  MSPUrt  '.UAl 
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(EJECT 

73  2  DECLARE  VTf  (SUBCODE! TABLEAU! *>  BYTE  DATA( 

ROUO.'FH  ', 

ROW. '  CHAN  HAN  PRST  STAT', 

R0M4,'  SEL'.COU.  Fp£3  .COLll.'CHAN  PAGE'. 

R0H5,'  T/R/.COL6.'T/R+  HCH'.COU?,  RE', 

R0H6.C0L6.  'CARO'  ,0X16.  'TFAN' . 

ROW,  can.  'TEST'.  0); 

76  2  DECLARE  W(3W5ENA51E  STRUCTURE! 

SW*1A5K!7)  BYTE, 

SUSVALLE < 8 )  BYTE)  DATA! 

O.O.OEEH.OAEH.3, 1SH. 10H.  /»  MASK  DATA  */ 

OOH. 12H,32H>44H,44H,44H,55H,60H!i  I*  VALUE  DATA  */ 

V  2  DECLARE  VHFdCB  STRUCTURE! 

MODE  BYTE, 

IWKCH  BYTE. 

OEUttCH  BYTE, 

DEUKHASK  ADDRESS, 

ECHOtROU  BYTE, 

ECHOtCOL  BYTE, 

SUKNABLE  ADDRESS)  DATA! 

SUITCH,0,0.0,0,0,.VHF(SlttENA8L£)i 

78  2  DECLARE  VTF(LABEL(3)  BYTE  AT!.V)F*SUBf10DE*TABL£AU(l)); 

T9  2  DECLARE  VHF(CMT),  STRUCTURE! 

LABEUPTR  ADDRESS, 

ACTIVE4CHAN4PTR  ADDRESS, 

LAST(ACTIVE(CHAH(PTR  ADDRESS, 

FREWPTR  ADDRESS. 

HEQtSIZE  BYTE, 

INSERTtilASX  ADDRESS, 

HIN4PTR  ADDRESS, 

HAXtPTR  ADDRESS, 

HAN(FREO(ICB(PTR  ADDRESS)  DATA! 

.»f  (LABEL, .VHF*ACTIVE*CHAr),.lAST*WMCTtVE*CHA«,.VHF»fR£Q,<,20(»H, 
•HlN(Ffi£Q,.MAX(FR£Q,.MAN$lrR£Q$ICB)i 


ft/K-80  amc£R  w 


3C0CT79 


4EJECT 


80 

2 

CALL  INITIAL IZE*COM(.VWF$CNTL>! 

81 

2 

00  FOREVER; 

82 

3 

CALL  CLEAfilO); 

83 

3 

CALL  GfilDI.SUBMOCElGRID); 

84 

3 

CALL  OISPLAY<.VHF*StJEMGIf$TABLEAU); 

85 

3 

CAU  01  SPLAY4CH5N$FF£Q  ( VHF *ACTI V£  (CHAN )  i 

86 

3 

CALL  0ISPLAY4STATUS; 

87 

3 

CAU  fi£AB(.Wf*IC8); 

88 

3 

DO  CASE  SHtlNCEX! 

89 

4 

CAU  CHAN4SQ.! 

90 

4 

CAU  MAfttfFfQIVtfiACTIVEJCHAH); 

91 

4 

CAU  PRST4CHAN; 

92 

4 

CAU  STOWAGE! 

93 

4 

CAU  UPDATE W10CE; 

94 

4 

CAU  ONKFFi 

95 

4 

CAU  SHAPl.WtIACTIVESOWNi  .LAST4VHF4ACTIVE4CHAN) 

96 

4 

ENDS  /•  OF  00  CASE  ♦/ 

97 

3 

end;  /•  of  do  forever  */ 

98 

2 

EM);  /»  OF  WFSSUEnOOE  */ 

99 

1 

end;  /t  OF  WF  */ 

flOOULE  ^FORMATION; 

CODE  AREA  SIZE  «  0247H  5830 

VARIABLE  AREA  SUE  «  0001H  10 

IHXIIU1  STACK  SUE  =  OOOAH  100 

224  Lilts  READ 
0  PROGRAM  ERROR(S) 


PAGE  4  .. 


BO  OF  PL/H-80  COH1  RATION 


t 


Pun-eo  COMPILER  t*F 


300CTT?  PACE 


ISIS- It  fl/N-30  VO-1  CCW'ILATIOW  Of  HOOOE  OF 

OBJECT  NODULE  PLACED  W  :Fi:l>f.OBJ 

COfPItER  INVOED  8V.  PLKSO  iFUUkf  .SRC  OATE  (300CT79)  DEBUG 


J 

4  1 

5  2 
*  2 

7  1 

8  2 

9  l 

10  2 
It  2 
12  1 
13  2 
U  1 
15  2 
10  1 

17  2 

18  2 

19  l 

20  2 
21  2 
22  l 
33  2 
»  2 
35  1 
20  2 

27  2 

28  I 

29  2 

30  2 

31  1 

32  2 

33  2 
3»  1 
35  2 
30  2 


37  1 


ITITLEI'UHF'! 
t*f:  DO! 

UiOUST  INCLUDEfiFUCHJLlT.SRC) 

INITJW.I1E1CCM!  PRCCEMvESCNTLiPTR)  EXTERNALS 
DECLARE  CNTUPTR  ADDRESS! 

END! 

amsas  rrncsm  externals 

END) 

fWMFRESs  FKOCEDURElCHAN)  EXTERNALS 
DECLARE  CHAN  BYTE) 

END; 

PRSTSCHAN:  PROCEDURE  EXTERNAL? 

END? 

STAWAGE*.  PROCEDURE  EXTERNAL! 

END*. 

DISPLAYfCHANtFFEQ:  PROCEOHEICHANJ  OTERNAL! 

DECLARE  OWN  BYTE? 

END*. 

CLEAR*.  PTOCEDWEISTARTIROH)  EXTERNALS 
DECLARE  START  WO?  BYTE*. 

END*. 

GRID?  PROCEDURE(POINTER)  EXTERNALS 
DECLARE  POINTER  ADDRESS! 

QOS 

DISPLAY*.  PROCEDURE!  INIPfTO  EXTE59WL* 

DECLARE  1H1PTR  ADDRESS*, 

flfil 

REAR:  PROCEDURE! ICBtPTR)  EXTERNALS 
DECLARE  ICBtPTR  ADDRESS! 

END? 

LPDATEPLINE:  PROCEDURElROU.COL.NCHAR.TEnsPTRI  EXTERNAL! 
DECLARE  iROH.Ca.NCWfi)  BYTE,  7EXT1PTR  AMRESSs 
ENDS 

9W>:  PROCEDURE!*.  B>  EXTERNALS 
DECLARE  (A,  B)  ADDRESS: 

ENDS 

/«  BtTEWAL  VARIABLES  */ 

DECLARE 

0FFWN1TEXTI6)  BYTE  EXTERNAL, 

BLMttL$*(2<l  BYTE  EXTERNAL. 

SUV  BYTE  OTERNAL. 

SWINDEX  BYTE  EXTERNAL* 

UHrSACTIVEKtWN  BYTE  DTERNAL. 
SUBKJDEWASTISTEFIENAELE  ADDRESS  EXTERNAL. 
LASTWHFWCnVEKWN  BYTE  EXTERNAL. 

UfiSTAWS  BYTE  EXTERNAL. 

ttf*fT£0UOl  $TRUCTORE!0t<mS(6>  BYTE)  EXTERNAL. 

subhooekaid  ADDRESS  EXTERNAL*. 


I 


qks&sss  a  a  «8»  sa  a  *  saatss*  s  aa 
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1  DECLARE  1  BYTE; 

l  DECLARE  MIKIFREC(fe)  BYTE  DATA('250M'). 

HAXtFR£Q(6)  BYTE  mA('3WT5')i 

1  INITJUf  •  PROCEDURE  PUBLIC; 

2  DO  I  *  0  TO  ?; 

3  CAa  f)0VE(i,.mN$PREQ..l*f*FR£Q(I))1 

3  END; 

2  UHFtSTATUS  *  0! 

2  UHFtACTIVEtCHAN  *  0; 

2  LASTtUftACTIVEtCHAN  =  0; 

2  end; 


1  UFtSUSIIODE:  PROCEDURE  PUBLIC; 

2  DECLARE  WNtFREOtlCB  STRUCTURE! 

MCE  BYTE. 

ItWCH  BYTE. 

DELWCH  BYTE. 

DELMWttcX  ADDRESS. 

ECHOtROU  BYTE, 

ECHOtCGL  BYTE. 

swEwaE  address;  mtai 

NOtCLEARtOIGIT. 6. V . 1000H. 2.7. .SUBHODEtLASTtSTEPtENABLE) ! 

2  OISPLAYtSTATUS:  PROCEDURE; 

3  DECLARE  N0DE$TEXT(5)  STRUCTURE!CHS(5)  BYTE)  DATA! 

'  VT/R  VT/R+G'.'ADF  '.'CARD  '); 

3  CALL  UP0ATEtLINE(I.O.3..CFFtCNtTEn(3»(SW(IJHFtSTATUS»5)  AND  I))); 

3  CAa  UP0ATEtLINEU,5.5..nCCEtTEXT(imSTATUS  A®  OFH))! 

3  IF  (UFtSTATUS  AND  10H)  >  0 

THEN  CAa  l?DATE*LII€<0,5,3,.rsa/m 
3  ELSE  CAa  UP0ATE$LDE<0.5,3,.BLANK$LINE>; 

3  END;  /t  OF  OISPLAYtSTATUS  ♦/ 


2  UPDATE tflOOE:  PROCEDURE; 

3  DECLARE  SHVtLIST(5)  BYTE  0ATA(30Q,32Q.3AO.3Sa.3M); 

3  1*0; 

3  DO  WILE  (SUV  O  SWtLIST(I))  AND  (I  <  5)5 

4  I  »  I  ♦  l; 

4  END; 

3  IF  I  <  4  TJCN  I  »  I  ♦  l; 

3  UftSTATUS  *  (UHFtSTATUS  AND  OFOH)  ♦  H 

3  EM); 


49  2  SO.WWCFF:  PROCEDURE; 

49  3  IF  SWV  *  SQLtGFPtSM 

TTCN  l»f  ISTATUS  »  UHFtSTATUS  AND  UEFHi 
aSE  UHFtSTATUS  *  UHFtSTATUS  CR  1UH; 


n  3 


8  3 


t 
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72  3  EM); 

73  2  TESTITONEs  PROCEDLRE; 

74  3  ? 

75  3  EM); 

76  2  OWOFF:  PROCEDURE; 

77  3  IF  SWV  *  OFFISH 

DEN  14P4STATUS  *  UKF43TATUS  AND  ODFH;  /»  OFF  ♦/ 

3  aSE  (JHFISWruS  *  UHFISTATUS  OR  20Hi  /#  ON  »/ 

3  EM); 


81  2  DECLARE  Uf 4SUBN0DE4T ABLEAU ( t )  BYTE  DATA! 

ROW). 'Iff'. 

R0H3.'  CHAN  NAN  PRST  STAT', 

ROW.'  Sa',CflL6, 'FREQ', CCLU, 'CHAN  PAGE', 

R0H5.'  T/R',CCL6>'T/R*  ADF'.COLIS.'GARD', 

ROU6.COL6.'GARD'. 

R0H7.'  SQL'.CCLA, 'SOL', COLll. 'TEST', 

ROMS,'  OFF', COLi.'QN', CCLU, 'TO€',0>; 

82  2  DECLARE  UHFSSMENAHJE  STRUCTURE! 

SM$HASK(7)  BYTE. 

SWVALUE!9)  BYTE)  DATA! 

O.O.OEEH.OAEH.GASH.miOH,  1*  MASK  DATA  »/ 

OOH, 12H.33H.44H.44H. 45H.56H.77H.S0H) ! 

83  2  DECLARE  UHFIICB  STRUCTURE! 

RODE  BYTE, 

MlltCH  BYTE, 

DEUWCH  BYTE, 

OEUKHASK  ADDRESS, 

ECMMROU  BYTE, 

ECHOtCOL  BYTE, 

SU4ENABLE  ADDRESS)  DATA! 

SNITCH, O.O.O, O.O,. UKFRSWRENABL £>; 

84  2  DECLARE  UHF4LABa'3)  BYTE  ATI. UHFISUEnODEtTABLEAUd)); 

85  2  DECLARE  UtFSCNTL  STRUCTURE! 

LABatPTR  ADDRESS. 

ACTIVEKHWtPTS  ADDRESS, 

IAST4ACTIVE4CHANSPTR  ADDRESS, 

FRE64PTR  ADDFESS, 

FREQ4SIZE  BYTE, 

INSERTN1ASK  ADDRESS, 

HINtPTR  ADDRESS, 

HAMPTR  ADDRESS. 

HAWFREQ4ICBIFTR  ADDRESS)  DATA! 

.  WKABEL . .  Ilf  RACTIlEt CHAN , .  LASTtUtflACTIVEICHAN, .  UP  4FREQ,  6,  LOOOH. 
•WN4FRE8,  .HA14FRE4,  .MANIFREQ4ICB) ! 


* 
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{EJECT 


06 

2 

CALL  IMITIALIZEICOm.LlifttNIU! 

87 

2 

DO  FOREVER; 

88 

3 

CALL  CL£AK(0>! 

89 

3 

CAU.  CRIOf.SUBKOCEKRlD); 

90 

3 

CALL  DISPLAY ( .UEF$$U5flCCE{TAElEAU) • 

91 

3 

CALL  DISPLAYtCHX'iFF.EQUIHFtAC T I VEICHAN)  > 

92 

3 

CAU.  DISPLAYJSTATUS; 

93 

3 

CAa  READ(.UHF$ICBIl 

94 

3 

do  case  sminiexs 

95 

4 

CAa  ovwisa*. 

96 

4 

CAa  NAWFF£QUiHF{ACTIWE{CHAN)i 

97 

4 

CAa  PRST1CHAN! 

98 

4 

CAa  STATiPAGE; 

99 

4 

CAa  UP0ATE4H0DE;  /»  T/R.  T/R+Gi  AOF.  GARD  */ 

too 

4 

CAa  SQLICNtOFF; 

101 

4 

CAa  TESTITOEi 

102 

4 

CAa  ONlCfFl 

103 

4 

CAa  SUAP(.U4F«ACT1VE*CHAN.  .LASTMJHFIACTIVEiCHAN) 

104 

4 

EM!  /»  OF  DO  CASE  t/ 

106 

3 

EMI  /«  OF  DO  FOREVER  ♦/ 

106 

2 

EM!  /•  OF  WFtStenODE  »/ 

107 

1 

EM!  /*  OF  UHF  »/ 

nOOULE  KFORMATICN: 

CODE  AREA  SIZE  *  0286H  6460 

VARIABLE  AREA  SIZE  *  0001H  10 

RAXIHUn  STACK  SIZE  =  OOOSH  BO 

239  LINES  READ 
0  PROGRAM  EKROR(S) 

EM  OF  PL/R-80  COMILATION 
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ISIS-II  PL/H-SO  V3.I  CONPILATKN  OF  ItoWLE  ADF 

OBJECT  NODULE  PLACED  IN  :F1:ABF.0BJ 

COMPILER  INVOtXB  BY:  PLfISO  :F1:ADF.SRC  DATE ( 300CT79 >  CEBUC 


STITIK'ADF') 

1  PDF:  CO! 

SNOLIST  INCLUDE! : FI : CDLL IT. SRC ) 

«  1  INITIALIZESCOM:  PROCEDUFE ! CMTL5PTR )  EXTERNAL*. 

5  2  DECLARE  CNTLSPTR  ADDRESS; 

6  2  ENDi 

7  1  CHANSSEL)  PROCEDURE  EXTERNAL; 

82  END; 

9  t  NANSFREfi:  PROCEDURE  (CHAN)  EXTERNAL; 

10  2  DECLARE  CHAN  BYTE; 

11  2  END; 

12  1  PRSTSCHAN:  PROCEDURE  EXTERNAL; 

13  2  END; 

14  1  STATSPAGE:  PROCEDURE  EXTERNAL! 

13  2  END; 

14  1  DISPLAYSCHANSFREQ:  PROCEDURE (CHAN)  EXTERNAL! 

17  2  DECLARE  CHAN  BYTE; 

18  2  END; 

19  1  CLEAR:  PROCEDURE (STARTSROU)  EXTERNAL; 

20  2  DECLARE  STARTSROU  BYTE; 

21  2  END; 

22  1  CLEAflSTEJPSBUF:  PROCEDURE  EXTERNAL; 

23  2  END; 

24  1  GRID:  PROCEDURE (POINTER)  EXTERNAL; 

25  2  DECLARE  POINTER  ADDRESS; 

24  2  END; 

27  1  DISPLAY:  PROCEDURE! INSPTRI  EXTERNAL! 

28  2  DECLARE  INSPTR  ADDRESS; 

29  2  END; 

30  l  READ;  PROCEDURE! ICBSPTR)  EXTERNAL; 

31  2  DECLARE  ICBSPTR  ADDRESS; 

32  2  END; 

33  1  UPOATESLIKD:  PROCEDURE(ROM.Ca.NCH»,TEXTSPTR)  EXTERNAL; 

34  2  DECLARE  (POU.COL.NOttR)  BYTE,  TEXTSPTR  ADDRESS) 

35  2  END; 

34  1  SNAP:  PROCEDURES,  B)  EXTERNAL! 

37  2  DECLARE  IA,  B)  ADDRESS; 

38  2  EM); 

/•  EXTERNAL  VARIABLES  */ 

39  I  DECLARE 

DFFS0NSTEXT(6)  BYTE  EXTERNAL, 

BLA»;sUf£l’4t  BYTE  EXTERfW., 

TEHPSBUF(24)  BYTE  EXTERNAL, 

SUBWDESLASTSSTEPSEHABLE  ADDRESS  EXTERNAL, 

SUV  BYTE  EXTERNAL, 

SUS INDEX  BYTE  EXTERfW., 

AOFSACTIVESCHAH  BYTE  EXTERNAL, 
lASTSAOFIACITVEtOWJ  BYTE  EXTERNAL, 

ADFSSTATUS  BYTE  EXTERNAL, 

AOFSFREGUO)  STRUCTUR£(0IGITS(4)  BYTE)  EXTERNAL. 
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ADF 


SUBNODEWRIO  ADDRESS  EXTERNAL; 


40  l  DECLARE  CU1SU  LITERALLY  '420'; 

4t  1  DECLARE  I  BYTE; 

42  1  DECLARE  H!NJFfiE0(4>  BYTE  MTAt'0190'). 

NAOFR£fi<4)  BYTE  DATA('1750')J 

43  1  INITtADF:  PROCEDURE  PUBLIC; 

2  DO  I  *  0  TO  9i 

3  CALL  nOVE(4,.BIN»RR£a..ADF4RREQ(I)» 

3  END: 

2  ADF4STATUS  *  0; 

2  ADFMCTIVE4CHAN  *  0: 

2  LAST4ADF4ACTIVE4CHAN  *  0; 

2  SOT 


91  1  AOFfSUBHGDE:  PROCEDURE  PUBLIC; 

92  2  DECLARE  WN4FREMICB  STRUCTURE! 

NODE  BYTE. 

NUNtCH  BYTE. 

OELHfCH  BYTE. 

DEUMMASK  ADDRESS. 

ECH04R0U  BYTE. 

ECHOtCOL  BYTE. 

SMENABLE  ADDRESS)  DATA! 

N04d£AR$OIGIT,4.0.0.2.7..SUBNCDE$LAST$STEP4£NABLE); 


93  2  0ISPLAY4STATUS:  PROCEDURE; 

34  3  DECLARE  HOBEOtTESTiLA5£L(3)  STRUCTURE (TEXTI4)  BYTE) 

OATAI'VCE  CH  '), 

HD0E1*LABEL(3)  STRUCTURE (TEXT (8)  BYTE) 

OATAJ'RCW  AUTO  ADRIAN  ADF  'IT 

98  3  CALL  UPDATE4LINE(0.5.4..H0DE0*TEST4LABEL(ADFiSTATUS  AND  3))T 

%  3  CALL  CLEAR* TENPJBJFi 

37  3  IF  IADFISTATUS  AND  20H)  >  0  TTCN  1*3? 

»  3  ELSE  I  *  0* 

40  3  CAU.  N0VE(3..0FF*CN*TEXT(I),.TEMP«UF>; 

41  3  CALL  MOVE18..nor£l»LA££L(S)fi(ADF*STATUS>2)  AW  3),.TEH>*BUF(3)>; 

42  3  CAUL  UPDATE«CINE(1.0.13. .TEMP5BUF); 

43  3  DOT  /»  OF  DISPLAYISTATUS  #/ 

44  2  UPDATE WIOOEl!  PROCEDURE; 

49  3  DECLARE  SUV*UST<4)  BYTE  DATA(3CG.3tQ,32Q,34Q), 

VW.4USTI4)  BYTE  DATAI0.0.4.8); 

46  3  I  *  OT 

47  3  DO  WILE  (SUV  O  SUVJLISTU))  AND  (I  <  4)( 

40  4  !■!♦!! 

69  4  EMIT 

70  3  ADF4STATUS  *  (AtFiSTATUS  AND  CF3H)  ♦  VALH.ISTII); 
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71 

3 

EM); 

72 

2 

UPDATEtwrt '■  PROCEDURE: 

73 

3 

ADF4STATUS  =  ATFt  jTATUS  AI.X  OFCH; 

74 

3 

IF  SHV  =  CV4SW  THEN  ATRISTATUS  =  ADF4STATUS  ♦  1! 

76 

3 

END) 

77 

2 

TEST:  PROCEDURE, 

78 

3 

ADF4STATUS  *  (ADF4STATUS  AND  OFCH 1  ♦  2: 

79 

3 

end: 

80 

2 

0N90FF:  PROCEDURE; 

81 

3 

IF  SHV  *  OFFtSW 

DEN  ADFSSTATUS  *  ADF4STATUS  AND  ODFHi 

/»  OFF  «/ 

83 

3 

aSE  ADFSSTATUS  *  ADFSSTATUS  DR  20Hi 

/*  ON  *1 

84 

3 

end: 

85 

2 

DECLARE  ADF4SUBf!0DE$TAEL£AU(»)  BYTE  DATA) 

ROUOi 'ADF', 

ROW,'  OWN  «W',C0LJ1,'PRST  STAT'. 

R0U4,'  SEL',C0L6. 'FREQ' >CflLU, 'CHAN  PACE', 

ROW,'  RCVR  AUTO  NAN', 

RQMS.OLi.'ADF'.COUl.'AOF', 
row,'  vcE'.ca7,'a',axn.'TCsr,o)s 

86  2  DECLARE  ADF4SWFENA8LE  STKOCTIREC 

StnnASK(7)  BYTE, 

SWIVW.UEI9)  BYTE)  DATA! 

0,O.OEEH,OESH,OESH, 13H, 10H. 

OOH,  12H.33H,  44H,  44H.  5JH,  54H,  77H,  80H) ; 

87  2  DECLARE  ADF4ICB  STRUCTURED 

NODE  BYTE, 

NUfttCH  BYTE, 

DELMCH  BYTE, 

OEUttttASK  ADDRESS, 

EDWROU  BYTE. 

ECH04C0L  BYTE. 

9MENABLE  ADDRESS)  DATA! 

SWITCH,  0,0,0,0,0,.ADF*SKl£NAR£)i 

88  2  DECLARE  ADF4LAKU3)  BYTE  AT(.ADF*SUWODE$TABL£AU(D)i 

89  2  DECLARE  A0F4CNTL  STRUCTIFE) 

LABEL4PTR  ADDRESS, 

ACTJVEJOttNSPTR  ADDRESS, 

LASr*ACriVE*CHANJfm  ADDRESS, 

FRE04PTR  ACORESS, 

FREMSI2E  BYTE, 

INSERWASX  ADDRESS, 

HIN4PTR  ADDRESS, 

MAItPTR  ADDRESS, 

JWMFRE0»IC&»PTS  ADDRESS)  DATA) 

.ACF4LAKL , .  ADFIACT1VE40W),  .LAST4ADF4ACTIVE4CHAN,  .ADF9FREO,  4.0, 
.WMFRE9,  .HAHfREQ,  .NANIFPEMICBM 
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90 

6 

CALL  INITIALIZEICCYK.ADFICNTL); 

91 

2 

DO  FOREVER! 

92 

3 

CALI  CLEAfi(O)! 

93 

3 

CALL  GRIDI.SUBfCrEtGRID); 

94 

3 

CALL  DISPLAY!, AOFiSUEflOBE4TABLEAU>: 

95 

3 

CALL  DISPLAY*CHAS*FP£Q(AIF*ACTIVE*CHAN)S 

98 

3 

CALL  OISPLAYiSTATlISi 

97 

3 

CALL  READ(.ADFIICB)! 

98 

3 

DO  CASE  SUSINCEX: 

99 

4 

CALL  CHAN1SEL! 

100 

4 

CALL  fttN4FR£l3(ADFMCTIVE$CHAN); 

101 

4 

CALL  PRSTlOvN! 

102 

4 

CALL  STANPACE; 

103 

4 

CALL  UPDATE  WODEli 

104 

4 

CALL  (JPOATEIMGEEO; 

105 

4 

CALL  TEST; 

106 

4 

CALL  0N4CFF: 

107 

4 

CALL  SNAPI.ADF4ACTIVE9CHAN.  .LASTJADFMCTIVE9CHAN) 

108 

4 

end:  /t  OF  00  CASE  </ 

109 

3 

end;  /*  OF  DO  FOREVER  #/ 

110 

2 

EM);  /•  OF  ADFtSUBNODE  »/ 

111 

l 

END;  /t  OF  ADF  */ 

NODULE  IfFORHATIGN: 

ODBC  AREA  SIZE  =  028BH  iSID 
VARIABLE  AREA  SIZE  *  OOO 1H  ID 

HAXIIMt  STACK  SIZE  *  0008H  8D 

244  LIfES  READ 
0  PROGRAM  ERROR(S) 
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ISIS-II  PL/H-30  V3.1  COKPILATICtl  OF  MODULE  CNV 
OBJECT  NODULE  PLACED  IN  :Fi:CJf/.OR> 

COMPILER  INVOKED  BY!  PLMSO  :F1:CK/.SRC  DATE { 300CT79 )  DEBUG 


♦TITLE ('CNV') 

1  CNV:  DO! 

♦NOLIST  IWLUDEOFDCaUT.ERC) 

♦  1  iNlTIALUEiCCtl:  PROCEDURE (CNTLSrTR)  EXTERNAL! 

5  2  DECLARE  CNTLSPTR  ACTRESS'. 

4  2  END; 

7  1  CHANTSa:  PROCEDURE  EXTERNAL; 

82  END; 

9  1  NAN9FREQ:  PROCEDURE (CHAN)  EXTERNAL. 

10  2  DECLARE  CHAN  BYTE: 

11  2  END; 

12  1  PRSTSCHAN:  PROCEDURE  EXTERNAL! 

13  2  END; 

H  1  STAWAGE:  PROCEDURE  EXTERNAL; 

13  2  END; 

14  1  DISPLAYFCHANIFREfl:  PROCEDURE (CHAN)  EXTERNAL! 

17  2  DECLARE  CHAN  BYTE; 

18  2  END! 

19  1  CLEAR:  PROCEDURE  (STtfTtROH)  QTERNAL; 

20  2  DECLARE  START4R0W  BYTE; 

21  2  END; 

22  1  CLEARWEHP4BUF:  PROCEDURE  EXTERNAL; 

23  2  END! 

24  1  GRID:  PROCEDUIRE(POINTER)  EXTERNAL! 

25  2  DECLARE  POINT®  ADDRESS; 

24  2  end; 

27  1  DISPLAY:  PROCEDURE! IN5PTR)  EXTERNAL! 

28  2  DECLARE  INtPTR  ADDRESS; 

29  2  END! 

30  1  READ:  PROCEDURE (ICPYPTR)  EXTERNAL! 

31  2  DECLARE  ICB1PTR  ADDRESS; 

32  2  end; 

33  l  UPOATEILIfE:  PROCEDURE(ROH.COL,NCHAR,TEXT$PTR)  EXTERNAL! 

34  2  DECLARE  (ROH.COL.NCHAfl)  BYTE,  TEXTSPTR  ADDRESS; 

35  2  END! 

34  1  SNAP:  PROCEDURES,  B)  EXTERNAL! 

37  2  DECLARE  (A.  B)  ADDRESS; 

38  2  END; 

/*  EXTERNAL  VARIABLES  */ 

39  1  DECLARE 

0FF«N$T£XT(6>  BYTE  EXTERNAL, 

BLANK SLI)C(24)  BYTE  EXTERNAL, 

TEB>iBJF(24)  BYTE  EXTERNAL, 

SHV  BYTE  EXTERNAL. 

SUBTWDE»LAST4STEF»ENAEL£  ADWESS  EXTERNAL, 

SUf  INDEX  BYTE  EXTERNAL, 

CNVtACTIVESCHAN  BYTE  EXTERNAL. 

IAST$CNV*ACTIVE*CHAN  BYTE  EXTERNAL, 

CNWSTATUS  BYTE  EXTERNAL. 

CNVW84V0L  BYTE  EXTERNAL. 
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OMJttWVOL  Bit  EXTERNAL. 

OV»fP£U(iO«  3TRlCTUR£(DIGITS(5)  ByTE)  EJtlERfW., 
SUBWDE*GfiID  ADDRESS  EXTERNAL; 


40 

1 

IE CLARE  VOL* INC JEW  LITERALLY  'SCO', 
NB*HICH*3U  LITEPA1Y  '35Q'J 

41 

1 

DECLARE  I  BYTE; 

42 

1 

DECLARE  NJN*FR£Q(5)  BYTE  WHAI'10300'), 
«WIFJ®M5J  BYTE  5ATA('I17?5-')i 

43 

1 

DECLARE  V0L4DATA1PTR  ADDRESS. 

VOL  BASED  VOL*DATA*?TR  BYTE! 

44 

1 

INIT4CNV:  PROCEDURE  PUBLIC! 

43 

2 

DO  I  *  0  TO  9i 

46 

3 

CALL  WVE(5,.NIN*FR£fli.CW*FRE9(I)) 

47 

3 

END! 

48 

2 

CNWSTATUS  *  o: 

49 

2 

CNV*ACTIVE*CHAN  *  0; 

30 

2 

LAST*CNV$ACTIVE*CHAN  =  0! 

SI 

2 

VOl*DATA*PTR  =  .CNVVffliVOL! 

52 

2 

awmvoL  *  o; 

S3 

2 

OWtNAViVOL  *  0; 

34 

2 

END! 

35 

1 

CNWSUBHODE;  PROCEDURE  PUBLIC; 

36 

2 

DECLARE  NANJFREWICB  STRUCTURE! 

WOE  BYTE, 

MUCH  BYTE, 

OELWCH  BYTE, 

0ELMM1ASK  ADDRESS, 

ECHtmV  BYTE, 

ECH04C0L  BYTE. 

SMENABLE  ADDRESS)  DATA( 

WBOEAWDIGIT.S,  %  S  lOOOH,  2, 7. ,  SUBWK*LAST*STEP*EK' X£) ! 


57 

2 

VCUADJUST:  PROCEDlRE; 

SB 

3 

IF  SW  *  VDL4INC4SM  TVEN  VOL  »  VOL  ♦  i! 

60 

3 

ELSE  VOL  *  VOL  -  l; 

61 

3 

END;  /*  OF  V0L4ADJUST  ♦/ 

62 

2 

WWIOWLCU!  PROCEDLRE! 

63 

3 

IF  SUV  *  fWHICHtSU  THEN  CNV4JTATUS  =  CNVtSTATUS  Cfi  l! 

63 

3 

aSE  CNV4STATUS  *  CMrtiTATUS  1 AND  OPEN 

66 

3 

END!  /♦  OF  ®*HIGH*LCU  */ 

67 

2 

OWOFFi  PROCEDLFEl 

tf 

3 

IF  SUV  *  CFF4SW 

DCM  Oft'liTATUS  *  CNV4STAT16  AND  0DFH!  /♦  OFF  «/ 


F/6  9/a 


AD-Al'19  133  LITTON  SYSTEMS  INC  VAN  NUYS  CALIF  DATA  SYSTEMS  DIV 
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UNCLASSIFIED 
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70  3 

71  3 


72  2 

73  3 
70  3 

73  3 
77  3 
70  3 
70  3 
•0  3 

«  2 


82  2 


83  2 


84  2 
83  2 


a$E  WWSTATUS  *  OWSTATUS  OR  20H!  /♦  ON  »/ 

BCt 


OtSPUWSTATUS:  PROCEDURE: 

DECLARE  I  BYTE: 

DECLARE  WWIlOITEim)  STRUCTUREICHI5)  BYTE)  DATAI'HB-LOVW-Hl'M 

IF  (CNVISTATUS  AM)  20H)  >  0  DEN  l  ■  3) 

ELSE  I  «  Ot 

OKU.  UPDATER. U£(liO>3i.OFF$GNtTEJ(T( I) )> 

CALL  UPOATElLlIC 1 1  >  19.5. .HBIH1L0ITEXT (CW4STATUS  MB  DM 

OBI 

DECLARE  CNV<SUBK)OE>TABL£AU(*)  BYTE  DATA! 

ROMO. 'CIW', 

ROW.'  CHAN  HAN'.COLIl.'PRST  STAT'. 

ROM.'  SEL'.C0L6.'FRE6'.C0lll.'CHAN  PAGE'. 

RON5.COL2.  'HB'.COLA. 'INC'. COLD.  'RB' . 

R0U6.'  VCL'.COL6.'VOL'.COLl7.'Hr. 

R0U7.'  NAV'.Ca6./0EC/,Cai7./HB'. 

ROW.'  VOL'. C0L6. 'VOL'. CCLU, 'TEST  LOU'. 01: 

DECLARE  CNVtSMENA&E  STRUCTURE: 

SWHASKttl  BYTE. 

SWWALUE!8)  BYTE)  DATA! 

0.0.QEEH.0A4N.0ACH. 13H. ION, 

00H.t2H.33H.494.67H.58H.69H.  PAH). 

DECLARE  CHVSICS  STRUCTURE! 
me  BYTE. 

WHICH  BYTE. 
delmch  BYTE. 

BEUMASK  ADDRESS, 

BHOttM  BYTE. 

EOOICOL  BYTE, 

8MENABLE  ADDRESS)  OATA(SHITCH.O.O.O.O.O..CNVISMENABLE)i 

OECLARE  OWIABELOI  BYTE  ATI.CNVtSUBnODESTABLEAUIMM 
DECLARE  CNVICMTl  STRUCTURE! 

LABELIPTR  ADDRESS, 

RCTNEtCHANIPTR  ADDRESS, 

IRSTtACTIVEtCHANIPTR  ADDRESS, 

PREBSPTR  ADDRESS. 

FREWS UE  BYTE. 

INSERTMASK  ADDRESS, 

NDHPIR  ADDRESS. 
mitPTR  ADDRESS. 

HMNFREMIC8IPTR  ADDRESS)  DATA! 

•OWLABEL.  .OWACTtVEICHAN, .  USTICNWACTIVEICHAN,  .CNWFSEO.S, 1000H, 
.fflWPREB,  .MUIFREO.  .MAWFREfillCB): 


A/iHoamiiR  on 


CJECT 


94 

2 

CALL  IMTIALIKtCOm.CMVtam.)! 

97 

2 

DO  FOREVER; 

98 

3 

CALL  OEARlOJl 

89 

3 

CALL  GRID(.SUB»CE»C«!DI! 

90 

3 

CALL  OISPIAY ( .  OiV$  :LE10K»TABL£AU) ; 

n 

3 

CALL  DISPLAY»CHV.JF?£aiCW*ACnvE»CHAMi 

n 

3 

CALL  DISPLAYSSTATVS; 

93 

3 

CALL  REAOl.OWttCBl! 

91 

3 

00  CASE  SMIWEIS 

95 

4 

CALL  CHMKSEL; 

99 

4 

CALL  MAMFREStOMACTHCfCHAN)  t 

97 

4 

CALL  PRSTICHANi 

99 

4 

CALL  STATtPAGEt 

99 

4 

V0L4OATA4PTR  -  .OMffitVCLJ 

/•  10  VOL  */ 

100 

4 

CALL  V0L4A0JUST! 

/»  DC  VOL.  DEC  VOL  ♦/ 

101 

4 

CALL  WtHIGHtUMi 

/•  m  HIGH' m  LOU  */ 

102 

4 

V0L4OATA4PTR  «  .CNV4NAV4V0LI 

/*  m  vs.  */ 

103 

4 

1  /»  TEST  #/ 

109 

4 

CALL  OMCFF) 

105 

4 

CALL  SUAFI.CNVtAaiVESCHAN.  .LASTICWMCTIVEICMINU  /•  LAST  •/ 

too 

4 

EWI  J*  OF  n  CASE  •/ 

107 

3 

001  /•  OF  00  FOREVER  •/ 

109 

2 

0Oi  /•  of  cwtsuenoK  •/ 

109 

1 

EMI  /#  OF  ON  •/ 

ware  dformtioni 

are  AREA  SIZE  *  023FH  5730 

WHtt£  MCA  SIS  -  0004H  40 

MUEIHUH  STACK  SIS  >  0008H  80 

241  LINES  READ 
9  FMQRAB  EFROR(S) 

M  OF  CUN-flO  COMPILATION 


nxKocnvuo  amr 
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ISIS-tl  PL/MO  V3.0  CGRPILATK*  OF  IMOI  OAT 

(EJECT  HCSUi  PLACED  IN  iFlsCOL'UT.CSkl 

CCMPILBR  ItWOUD  BY:  PU0O  sFItCSUOAT.SAC  BATCH1ER7BI  KM 


ITIIIXI'CSUMT') 

1  mti  m 

2  i  aeuwr 

VITMCTIVEICNM  BYTE  PUUC. 

USTVAf  tACT  IVEICHVt  BYTE  MLIC. 

UnSTATUS  BYTE  PUUC. 

wfwwioi  smucriKiDismiAi  bytei  pulki 
9  i  mam  mntanacm  byte  puuc. 

UMTWMFtACTlVEtCHAN  BYTE  PUBLIC. 

mwimvi  one  puuc. 

•PMBilOl  SY*UCWB<D161T$<*)  BYTE)  PUUCl 

4  i  bcusc  oPMcrnocNw  byte  puuc, 

UKTMBFMCmCIOWI  Bril  PUUC. 
mmii  ora  puuc. 

APMBKI4I  mCTUCUIcmiA)  IYTE)  PUUCl 

5  I  ■CUM  CMMACT1VCKMM  IYTE  PUUC. 

UKTOCMMACmEKHU  IT  IE  PUUC. 

OMKiaiu  «rrc  puuc. 

CWMMWL  byte  PUUC. 
bbmmmbwl  byte  puuc. 

OMMOtMl  STAUCTUKtOHSITStSI  IYTE)  PUUCl 

*  I  MURK  BfUTATU  BYTE  PUUC. 
wmwm  BYTE  PUUC. 

■mwmpoitnflB  iyte  puuc. 

/•  m  DUTMUZATION  KOUIRES  THAT  TK  FQUJOHINB  ITERS  K  CONTIGUOUS.  */ 
Vnm«flKl2)  BYTE  PUUC. 

PMCK0H(4)  BYTE  PUUC. 

■BMMOOKI4)  BYTE  PUUCl 

7  1  Ml  /*  BBT  «/ 


mu  nrnmnoNi 

COK  MCA  SIZE  •  OOCCH  OO 
WRMLE  MCA  SIZE  »  0009H  2170 

MMIHUY  STACK  SIZE  >  OOOCH  OO 
34  LINES  ICAO 
0  PMOGRMI  ERROR(S) 

M  OF  PUH-80  CORPHATION 


% 


PL/M-60  COMPILER 


FONTDA 
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ISIS-11  PL/N-90  V3.1  CW1LATION  OF  HOWJLE  FONTDA 

OBJECT  HOGUE  PLACED  IN  !Fi:FeNTDA.OBJ 

COMPILER  INVOKED  8Y>  PLH80  tFliFONTDA.SflC  OATE1270CT79)  DEBUS 


•TITLE! 'FONTDA') 

1  FONTDA!  DO! 

2  1  DECLARE  CHtF0NTWWTA(32O)  BYTE  PUBLIC  DATA! 

0,0.0, O.O.  /•  SP  ♦/ 

O.0.9PM.0.0.  /•  !  */ 

6. 9, 9,6.0.  /•  DEC  SYH  ♦/ 

Oi7FH.3EN.JCN. 8.  /*  SOLID  RIGHT  AARON  M 

O.OCH.2AH.77H.2AH.  /«  *  «/ 

0.&3H.13H.8H.64H.  /»  X  #/ 

0.34H.49H.54H.2CH,  /•  t  •/ 

0. 0.0.7, 0.  /#  '  •/ 

0.0.1CH.22H.41H.  /*  (  »/ 

0.0.41H.22H.1CH.  /•  )  •/ 

2AH.lCH.3EHilCH.2AH.  /♦  »  »/ 

8.8.3EH.9.8.  /»  *  •/ 

O.40H.9CH.0.0.  /*  ,  •/ 

8. 8.8.8. 8.  /*  -  •/ 

O.40H.60H.O.O,  ;•  .  */ 

MMOH.8.4,3,  /•  /  •/ 

3EH.31H.4SH.45H.3EH.  /»  0  •/ 

44H.42H.7FH.40H.40H.  /•  I  #/ 

72H.49H.49H.49H.44H.  /»  2  «/ 

22H.41H.49H.4SH.3&H.  /♦  3  •/ 

UH.14H.12H.7FH.10H,  /•  4  •/ 

2m.43H.45H.4SH.39H.  /*  3  #/ 

3CK.4AH.49H.49H.30H.  /•  6  •/ 

41H.UH.  9.  3.  3.  1*1*1 

3tH.49H.49H.49H.34H,  I*  8  */ 

44H.49H.49H.29H.1EH,  /•  9  */ 

0.34H.34H.0.0.  /*  >  */ 

0.44K.34H.0.0,  /*  J  •/ 

8.14H.22H.41H.0.  /*  <  »/ 

14H.14H.14H.14H.14H.  /•  «  • / 

0.41H.22H.14H.8.  /•  >  »/ 

2.1.31H.9H.4,  /#  ?  #/ 

3EH.41H.3DH.35H.2EH,  /*  t  #/ 

7CH.12H.11H.  12H.7CH,  /*  A  ♦/ 

7FH.49H.49H.49H.34H.  /»  B  ♦/ 

3EH.41H.41H.41M.22H.  f*  C  */ 

7FH.41H.41H.22H. 1CH,  /*  0  */ 

7FH.49H.49H.49H.41H,  /»  E  »/ 

7FH.9.9.9.I,  /*  F  •/ 

3EH.41H.31H.5tH.72H,  /•  G  4/ 

7FH.8.8.8.7FH.  /»  H  */ 

0.41H. 7FH.41H.0,  /«  l  *1 

20H.40H.41H.3FH.1.  /•  J  */ 

7FH.8.14H.22H.41H.  I*  K  •/ 

7FM.40H.4QH.40H.40H,  I*  L  ♦/ 

7FM.2.0CH.2.7FH,  /*  H  •/ 

7FH.4.0CH. 18H.7FH.  /*  H  */ 

3EH.4IH.4IH.4IH.3EH.  /»  0  •/ 


PWn-flO  CCWILB?  FDNTDA 
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7FH.9.9.9.4.  /•  P  •/ 

3EH.4tH.51H.21H.5EH.  /*  8  •/ 

7FH.M9H.29H.4tH,  /•  R  •/ 

22H.4W.49H.S1H.2W.  /»  S  •/ 

1.1.7FH.1.I.  /*  T  •/ 

3FH. 4CH. 40H, 40H. 3FH.  /»  U  #/ 

7.18H.40H.18H.7.  /•  V  #/ 

7FH.20H.lCH.2CH.7FHi  /•  U  •/ 

43H.14H.8.14H.43H.  /•  1  »/ 

3.4.7EH.4.3.  /•  7  «/ 

4W.51H.49H.43H.43H.  /•  Z  */ 

It 

3  1  DBt  /•  OF  CSUMT  •/ 


HOME  WFOnWTIOH 

CODE  MCA  SIZE  -  0140H  3200 

VARIABLE  MEA  SIZE  >  OOOOH  00 
HMIHUH  STflCX  SIZE  ■  OOOOH  OO 
45  LUCS  READ 
0  FROGMH  ERROR(S) 

BO  OF  PL/H-80  COtFILATION 


PL/H-00  COfllEf?  IFF 


290CT7?  PACE  t 


rsis-ir  fl/h-30  V3.1  cwilaticw  of  wcoe  iff 

OBJECT  NODULE  PLACED  IN  iFCIFF.OSJ 

cotpiler  imta  srt  puso  ifihff.sk  mte'^octt?)  debug 


tWLE('lFF') 

1  1FF>  OOt 

MUST  INCLUDE!  iFl.'CCUlIT.  SRC) 


4 

1 

ERRCRt  PROCEOSEICCDE)  EXTERNALS 

9 

2 

DECLARE  CODE  BYTES 

4 

2 

EM)! 

7 

1 

OEAMLIK:  PROCEDUREILINE)  EXTERNAL) 

• 

2 

DECLARE  LINE  BYTES 

9 

2 

ENDS 

10 

1 

CLEARS  PROCEDUREISTARTtRQUI  EXTERNAL] 

11 

2 

DECLARE  STARTtROU  BYTES 

a 

2 

ENDS 

13 

1 

CLEAR*  TETFWUF:  PROCEDURE  EXTERNALS 

14 

2 

OCX 

15 

1 

GRID]  FROCEDUSE(FOINTER)  EXTERNAL] 

14 

2 

DECLARE  POINTER  ADDRESS) 

17 

2 

oet 

18 

1 

DISPLAY:  PROCEDUEl  IMPTR)  EXTERNALS 

19 

2 

DECLARE  INIPTR  ADDRESS! 

30 

2 

ENDS 

21 

1 

READS  PROCEDURE  I ICB4PTR)  EXTERNALS 

22 

2 

DECLARE  ICBtPTR  ADDRESS; 

33 

2 

BOS 

31 

1 

UHlTSTESTs  PROCEDURE(EUFtPTRiNURfDIGITS.niNtPTR.nAXtFTR)  BYTE 

fl 

2 

DECLARE  NUmOIGITS  BYTE,  (BUF*P1R.HIN*PTR,I1AX*PTR)  ADDRESS: 

•H 

2 

BBS 

Mi 

1 

UPDATEtLIfC:  PROCEDUREIRCH.COL.NCHWI.TEXWTR)  EXTERNALS 

3B 

2 

DECLARE  (ROH.COL.NCHSR)  BYTE,  TEXT4PTR  ADDRESS! 

29 

2 

ENOS 

30 

1 

RADtTESTt  PROCEDURES 

31 

2 

s 

32 

2 

BOt 

31 

1 

DECLARE  NORNtSU  LITERALLY  '320'S 

/•  EXTERNAL  VARIABLES  •/ 

31 

1 

DECLARE 

CFF*0N*TEXT(2)  STKtCTUR£(CHAR<3>  BYTE)  EXTEKfMI., 
EAK*L»C(24)  BYTE  EXTERNAL. 

TBf*BUF<24)  BYTE  EXTERftfL. 

SHV  BYTE  EXTERNAL. 

SWINCEX  BYTE  EXTERNAL. 

1N*BUF<14)  BYTE  EXTERNAL. 

OATMENTERED  BYTE  EXTERNAL. 

OlGITtKBtCRID  ADDRESS  EXTEFNAL. 

OCTAL*KWTAEL£AU  ACTRESS  EXTERNAL. 

IFFOSTATUS  BYTE  EXTEFNAL, 

TFFDI1SCCCEI2)  BYTE  EXTERNAL. 

IFFPCKOCEMI  BYTE  EXTERNAL. 
tFFtt3tCCGE<4)  BYTE  EXTERNAL, 

IFFW4M0E  BYTE  EXTERNAL. 


t 


PUH-80  OTHER  Iff 


mcm 


IFF*MTEMNA*W$IT!ON  BYTE  EXTERNAL. 
SW«OE»GRIO  AtEAEiS  EXTEaTML. 


35  (  DECLARE  QNMFFfSU6rt»e»0tf&£  STRUCTURE! 

suvwxm  BYTE. 

SWWLtCC)  BYTE*  OATA! 

0.0.0.0.0.18H.80H,  /»  OFT.  CM.  SUWQOE  »/ 

•IH.26H)! 

30  1  DECLARE  GARWENABLE  STRUCTURE! 

9MfASK(71  BYTE!  DA.TA(C. 0. 0. 0.O. O.OAOHJ 5  f*  VALUE  NOT  IffORTANT  </ 

37  1  DECLARE  GARDMCfl  STRUCTURE! 

WOE  BYTE, 

MUmCH  BYTE. 

OELMCN  BYTE. 

OELHWASK  ADDRESS, 

GCHOMQM  BYTE. 

ECNOtCSl  BYTE. 

SKENMLE  ADDRESS)  0ATA(SWITCH,O.0.O,O.C».C«lr*ENAJLE>! 


38  t  DHTHFFI  PROCEDURE  PUBLIC! 

/•  INITIALIZATION  OF  THE  CODE  DATA  BELOW  REQUIRES  WAT  TIC  OATA  BE 
LOCATED  CONTIGUOUSLY  AND  THAT  MtCODE  APPEAR  FIRST  IN  THE  LIST 
(NAVE  THE  LOWEST  ADDRESS).  */ 

»  2  IFF8STATUS  «  0! 

40  2  IFF4MWCCE  >  0! 

41  2  1FFIANTEWAIPQSITI0N  «  0! 

42  2  IFFSHltCQOE(O)  «  'O'! 

43  2  CAUL.  MME(V..IFF*HllOaE..IFF4miCODE  ♦  1)1 

44  2  EWi 


45  1  OBEXi  PROCEDURElVALUE.BITtUX.ftASK)  BYTE! 

40  2  0ECLARE!WALt£.BITfL0C>nAS)O  BYTE! 

47  2  RETUW(SW( VALUE.  BIT4L0C)  AND  NASK)! 

41  2  BBt 


41  1  DECLARE  l  BYTE! 


90 

1 

DFF4CNHFFI  PROCEDURE! 

SI 

2 

IFFMFFi  PROCEDURE; 

52 

3 

CALL  DISPLAY!.  (ROC.  'OFT  CARDED'. 0)1! 

S3 

3 

CALL  READ(.GARDflCB)! 

54 

3 

IF  SWV  *  SUWG0EI3W  TKN  RETURN! 

SO 

3 

CALL  QJEAR4LI)C(2>! 

57 

3 

IFFWTATUS  «  !PF» STATUS  AW  OOFHl 

58 

3 

BBT  /•  ?F  I^ACFF  »/ 

IF  SUV  «  OFFISH  THEN  CALL  IFF4CFF! 

BSE  IPF4STATUS  •  IPFKTATUS  OR  20Ht 


PAGE  ; 


»  2 

01  2 
02  2 


Pl/IMO  0>f  HER  IFF 


290CT79  RAGE 


63  1  N0RWST8Y:  PROCEDURE) 

M2  IF  SW  *  MQRnSBU  THEN  IFFISTATUS  *  lFFS'TftTIJS  AND  OBFHT 

M2  ELSE  IFFISTATUS  *  IFFISTATUS  OR  O40H! 

67  2  END: 

68  1  TEST:  PROCEDURE; 

69  2  DECLARE  TESTITAELEAUI  *>  BYTE  DATA! 

wwo.caa.'iFF  tests 

how,'  iH/.ca6./n*2'.can.'H-3A/. 

R0U6.'  fM'i 
ROUS.'  H-C'.O); 

JO  2  DECLARE  IEST1ENA2LE  STRUCTURE! 

SUMASKI7)  BYTE. 

SMMLUEO)  BYTE)  DATA! 

O.O.OA8H.80H.80H.O.BOH. 

01H.23H.4SH); 

71  2  DECLARE  TESTIICB  STRUCTURE! 

HUE  BYTE. 

NOTCH  BYTE. 

DEUttCH  BYTE. 

DEUMHASN  ADDRESS. 

EMMROM  BYTE. 

ECHOICOL  BYTE. 

SMENABLE  ADDRESS)  DATA(SUlTCH.O.O.O.O.O..TESTta«BL£M 


72  2  CALL  CLEAR(O). 

73  2  IF  IFF«H4tH00E  THEN  TEOTBLFtO)  *  'B'l 

73  2  ELSE  TBWBUF(O)  •  'AM 

74  2  CPU.  UFW7EHD€f6.4,i,.TEJfW): 

77  2  CAU  CLEARITENPIBUF! 

7»  2  GAUL.  H0VE(8.«TESTfTA£L£AU  ♦  2..TEHPIBUF)! 

7*  2  CALL  NMEI6.. ('PASSED').. TENPIBUFtUHT 

80  2  CALL  DISPLAY!. TESTITAELEAU)! 

81  2  CALL  CRIDC.SUBflOCEIGfilD)! 

82  2  00  FOREVER: 

83  3  CALL  REAO(.TESmCB)! 

81  3  IF  SW  *  SUBHODEtSU  DEN  RETURN! 

88  3  IF  SMItDEX  •  4 

TIEN  TEIWBUF!?)  * 'C'  » 

81  3  OSE  TEOTBUFI9)  *  SWtlNDEI  4  3IHT 

80  3  CALL  UPOATE4LD£!2.0il7.,TE)f’4BUF)! 

00  3  EMDt  /»  OF  00  FOREVER  ♦/ 

01  2  an  l*  OF  TEST  4/ 


02  1  MSPUmSUenUEtSTATOTUNE!  PROCEDURE! 

01  2  DECLARE  IUF4PTR  ADDRESS. 

4IUF  BASED  8UF4PTRM1)  BYTE, 

MASK  BYTE! 

04  2  BURE  R0an$TtVtTEXT(2)  SmjCTIRE(CHM(4)  BYTE)  OATAl'NORHSTBY'll 


OS  2  CAU  OEARtLDCUM 

01  2  CAU  IflA1EILIIC(O.I0.4..KORHtSTBY4TEXT(INCE7(IPFtSTAIU6.6.1)))l 

ft  2  im  •  .TOTWUF  4  4« 

08  2  CAU  OEAROTCmuFt 


Pl/IHO  COT11ER  IFF 
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19 

2 

CAL  H0VE(3..0FFl£W$TWT(l«ltt{IFFISTflnjS,3,lM..TDW8lF>i 

too 

2 

IMSK  ■  IFFtSTATUSl 

101 

2 

10  I  -  0  TO  4» 

102 

3 

IF  MSK  TKN  001  /»  INSERT  Ki>  TEXT  FOR  'ON'  UNITS  •/ 

10« 

4 

UF(0>  »  'H'l 

10S 

4 

KJF(l)  •  I  ♦  31HJ 

100 

4 

EMU 

107 

3 

■UFtPTR  ■  SUFtPTR  ♦  4S 

Iflt 

3 

IMSK  •  SHMBASK.1U 

10» 

3 

04)1  /*  OF  DO  1  */ 

110 

2 

IF  (1FF4STATUS  AND  «»  >  0  T®<  TOF4BUFU4)  «  'A't 

112 

2 

IF  (IFFtSTATUS  NO  8)  >  0  THEN  00: 

114 

3 

IF  IFFtMWOOE  n€N  TOT4BUFU8)  »  '8'l 

1M 

3 

BiE  TEIW8UF(I8)  ■  'A'l 

117 

3 

001 

in 

2 

IF  OFFOSTATUS  AND  10H)  >  0  TTCN  TEHWI21)  ■  'CM 

120 

2 

CAU.  UPOATElUICIl.O,22..TaPI0UF)i 

WOE 


121  2 


b®»  /•  of  nsFunsumxnsTATistuic  •/ 


Fl/H-00  CCNIIIR  IFF 
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(EJECT 

122  1  HMSELECTi  PROCEDURE) 

123  2  DEC USE  M4*TA3LEAUi*l  BYTE  DATA! 

ROC.'IM  SELECT', 

RCW3.0X7.  'A'. can.  'B'tCaiGt  'HOLD', 

Rou5,ca6.  'AUD'.can.  'aud'  .cai6.  'out', 

ROUE,'  H-4', can, 'LITE', 0)i 

124  2  DECLARE  TMIENABLE  STRUCTURE! 

SW.1ASKI7)  BYTE, 

SWVALUE15)  BYTE)  DATA! 

0,0,2CH,2CH,0, 1SH, 80H, 

0M.23H.43H,67H,m>; 

125  2  DECLARE  IMIICB  STRUCTURE! 

H00E  BYTE. 

MMCH  BYTE, 

OELWCH  BYTE, 

DEU1  DIASK  ADDRESS, 

ECHWRCW  BYTE, 

ECHOSCa  BYTE, 

SWQMBLE  ADDRESS)  DATA(SU1TCH,0,0,0,0,O..H4(ENABLE)I 
125  2  DECLARE  HOLDtTEITI*)  BYTE  DATA! 'HOLD')? 

127  2  DISPLAYIMISTATUS)  PROCEDURE) 

121  3  DECLARE  AUWLITEITEXTO)  STRUT TLREfCttVHB)  BYTE) 

DATA!'  ','AUD  ','AUDLITE'll 

12B  3  CALL  CLEARtLI)C(l): 

130  3  CALL  CLEARITOPtBUF) 

131  3  IF  (IFFOHWOOE  AND  2)  >  0  THEN 

132  3  CALL  NVE! 4,  .HOLDITEXT , . TEJW8UF (20)  1* 

133  3  CALL  R0VE(8, . AUD5LITE4TEXT !  INDEX ( IFFW44NDE, 2, 3) ) , .  TEJf*4BUF(6 ) ) ! 

134  3  CALL  HOVE(3,.OFF(ON$ TEXT! INDEX (IFFISTATUS. 3, 1)),.TEJF(8UF); 

135  3  CALL  UPDATE(LIIC(liO,24,.TEJf,(BUF)i 

134  3  IF  IFFM4(N0E  TIEN  TETWBUFIO)  «  'B'! 

138  3  ELSE  TENPIBUF(O)  «  'A't 

139  3  CALL  UPQATE(LINE(2.3.1,.TBP(8UF); 

140  3  EMU 


141  2 

142  2 

143  2 

144  2 

145  3 
144  3 

147  3 

148  4 

149  4 

150  4 

151  4 
132  4 

153  4 

134  4 

135  4 

154  4 
137  4 


/•  DEBIN  H44SELECT  CODE  •/ 
CAaCLEARd); 

CALL  GRID(.SUBnQOEIGRID)! 
CALL  DISPLAY!. n44TABL£AU)l 


DO  FOREVER) 

CALL  DISPLAYIHUSTATUS; 

CALL  AEADf.mtlCBM 
DO  CASE  $W  INDEX) 

IFFW4WC0E  *  IFFINMNOE  AM)  OFEHi  /#  A  ♦/ 


IFFVMWUCE  «  IFF1K«»I€  OR  1)  /•  8  ♦/ 

IFFMMtflOOE  *  (IFFIMMIODE  AND  OPEN)  OR 

(INT  IFFdMOTQCE)  AN  2);  /«  HOLD  */ 

IFFdHWOOE  »  (IFFWINOE  AND  0F3HI  OR  4)  /♦  AUD  */ 

IFFW4IWDE  •  (IFFMMINDE  AN  0F3H)  OR  8)  /»  WO  LITE  #/ 

JFFIMIKtt  »  IFFM4W0DC  AND  0F3H)  /#  OUT  »/ 

IFFISTATUS  •  IFFISTATUS  AND  0F7HI  /»  OFF  »/ 

IFFISTATUS  *  IFFISTATUS  OR  8!  /♦  ON  *1 

RETURN;  /»  SUBHODE  #/ 

END)  /•  OF  DO  CASE  *1 


PL/S-flO  COflLO 

EMM 


V 


Iff 


290CT79  PACE  4 


DC;  /•  OF  00  FOfiEVER  «/ 
/t  OF  WiSafCT  »/ 


138  3 
159  2 


PUH-80  COrfILER  Iff 


29X179 


160  1 


161  1 
162  2 


163  2 


164  2 


163  2 
166  2 
167  2 

169  2 
16?  2 

170  2 

171  2 

173  2 

174  2 


♦EJECT 

DECLARE  ANTITEXTO)  STRXTURElCHWO)  BYTE)  DATAI'TOPDIVBOT')? 


ANTJSELECT:  PROCEDLFE! 

DECLARE  ANT»TABL£AU<»>  BYTE  DATA! 

R0U2.'ANT  SELECT'. 

ROW.'  TCP'. 

R0U6.'  DIV'. 
note.'  BOT'.OJi 

DECLARE  ANTtOiABLE  STfXTUREI 
SWNASK<7)  BYTE. 

SWVALIEO)  BYTE)  DATA! 

0. 0. OCOH. XOH. XCH.  0. SOI.  /»  TOP.  DIV.  BOT.  SUBH00E  •/ 

00H.11H.22H). 

DECLARE  ANTIICB  STRUCTIKEI 
HOOE  BYTE. 

NUHICH  BYTE. 

OELHfCH  BYTE. 

DELIWIASK  ADDRESS. 

ECH04R0U  BYTE. 

ECHOtCOL  BYTE. 

SUtENABLE  ADDRESS)  DATA(SUITCH.O.O.O,0,O..AHT$EHABL£)! 


CALL  CLEARI2)) 

CALL  DISPLAY!. ANTJTA8LEAU). 

CAUL  GRID(.SUBHODE*GRID); 

CALL  CLEARtUNEU); 

CALL  UPDATE$LINE<l.20.3..AMTJTEXT(IFFMNTBWA*P0SITIC*l))5 
CALL  REAO(.ANTsrCB); 

IF  SUV  «  SUBHMttSU  THEN  RETURN! 

IFFMNTENMtPOSITION  *  SWtlNDEli 
END!  /•  OF  ANTtSELECT  */ 


pun-ao  cotr;i£R  iff 
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175  1 

174  2 

177  2 


178  2 

179  2 

180  2 
181  2 
182  2 

183  2 

184  2 
184  2 
188  2 
189  2 


*£CT 

ncw.tOFF:  mmf£i 
DECLARE  HC»TAa.EPJ<»>  BYTE  DATA! 

R0U2> 'H-C  ON/OFF', OK 
DECLARE  fl'tlCB  STRUCTURE! 

NODE  BYTE. 

NUMCH  BYTE. 

DELMCH  BYTE. 

OEUKfMSK  ACKESS. 

ECHHROU  BYTE. 

ECHOtCOL  BYTE. 

SMENAELE  ADWESSI  OATA(SUITCH.O.O.O.O.O..ON«OFFt9miCEtENABl£)S 


CALL  CLEAR! 1)1 

CALL  UPDATEtUNE(0.20.4..BLWKtUI£K 
CALL  GRID(.SU3nOCESORIDK 
CALL  OISPLAY(.nCtTABL£AUK 

CALL  UPOATE$UT£(  1.0.3.. OFF tOMTEXTtINDGKIFFtSTATUS, 4.1)) It 
CALL  AEAD(.HCSICB); 

IF  SW  *  SU3KGCEISW  THEN  RETURN! 

IF  SUtIWEX  TKN  IFFtSTATUS  «  IFFtSTATUS  OR  lOHt  /•  ON  •/ 
ELSE  IFFtSTATUS  «  IFFtSTATUS  AND  OEFH!  /«  OFF  «/ 
END!  /*  OF  HCtONtOFF  */ 


pl/n-bo  carim  iff 


*.€cr 

WO  l  COCEttNTRYS  PR0CEWE; 

/»  WIS  FROCEB.Ff  HANDLES  DATA  ENTRIES  FOR  HI.  1C.  AM)  R3A  COOES.  THE 
SPECIFIC  CODE  UF  DATED  IS  0ETEFJ1IISD  BT  TVS  VFcUE  OF  SNHNOEX  ON  ENTRY: 
SNfINDEI  «  0  -  lU 
*  1  -  H2 
•2-10 

•/ 

191  2  DECLARE  ENTRYITAELEAUU)  BYTE  DATA1 

RQH2 /ENTER  CCDE'.OM 

192  2  DECLARE  INITK0EEHC8  STRUCTUREl 

WOE  BYTE. 

MIHCH  BYTE. 

OELMCH  BYTE. 

DEUW1ASX  ADDRESS. 

EEHOWOM  BYTE. 

EDOtCa  BYTE. 

SHtENABLE  ADDRESS)  DATA  (OCTAL.  0. 0.0. 2.  U..ONMFFSSUBnOOE*ENABL£ll 

193  2  DECLARE  COOEIIC8  STRUCTURE! 

NODE  BYTE. 

MMCH  BYTE, 

OELWCH  BYTE. 

OELNSMASX  ADDRESS. 

ECHOtROU  BYTE. 

ECHOtCa  BYTE, 

SUtENABLE  ADDRESS). 

m  2  DECLARE  C0DE1TABI*)  BYTE  MTAIPCH2/ENTER  CODE'. 0)5 
195  2  DECLARE  IABELSTA813)  STRUCTlfE(TEXT(7)  BYTE)  DATA! 

ROM.COLl/N'l  '.0. 

«OM.ODL6/f)-2  '.0. 
flOU4.COLH/N-3A',0)1 

19b  2  DECLARE  NUmDIGlTS(3)  BYTE  DATAI2.M), 

0ATA«AD0(3l  ADDRESS  DATA!.  IFFSflltCOOE. .  IFFW2TC00E. .  IFFDGSCOOEll 
197  2  DECLARE  HIN$C0DE<4)  BYTE  DATA('OOOO'). 

HAMCOOEI3)  STRUCTUR£(DIGITS(4)  BYTE)  DATA! 

'7300' i '7777' .  '7777' >  5 

DECLARE  GARMTETOTABOU  BYTE  0ATA(R0U2/«  GUARDED'. 0)1 
DECLARE  UX,H,ONt(mMSK)  BYTEs 


m  2 

199  2 


PL/N-90  COMILER  Iff 


290CT7?  PACE  10 


SJECT 

2  IX  >  SUtlWEX! 

2  IF  IX  >  0  THEN  CNICfftKA*  *  StU.IXM 

2  aSE  CKWFFIflASX  «  It 

2  N  »  NUMJDICITS(H)! 

2  CALI.  0£AR(2>! 

2  CALL  GRID! .OICITSKSSGRIO): 

2  IF  IX  «  1  TtfN  DO!  /*  IQ  IS  GUARDED  */ 

3  CALL  DISPLAY*. GARDtTEXTITAB)! 

3  CAL'  READ!. GAPI* ICBli 

3  IF  SUV  *  SUSnOCEtSU  TtCN  RETURN! 

3  END! 

2  CALL  CLEAR*Lll£<2>: 

2  CALL  DISPLAY*. COIEtTAB)! 

2  CALL  DISRAY  t .  OCT SLR>  BtTASLEAU ) ! 

2  CALL  DISPLAY*. LABELITAB* IX) )i 

2  CALL  HOVE*Pi.INITtCQD£$ICB..COOEIICBJ! 

2  CODEflCB.NJWCH  «  Ni 

2  DO  FOREVER! 

3  CALL  DISPLAYtSUBHODEtSTATUStLINE! 

3  CALL  READ(.COGEflCE): 

3  IF  DATAfENTERED  AND  ISW  -  ENTBNSU)  BEN  DO! 

4  IF  LIHITtTEST ( . INS6LF  • N. . NINtCOCE > . MAX SCODE (IX))  THEN  GO  TO  A! 

4  CALL  ERROR(OM  /•  ILLEGAL  ENTITY  •/ 

4  EMl 

ELSE 

3  DO  CASE  SUSINDEX! 

4  IFF4STATUS  »  IfftSTATUS  AND  (NOT  ONtOffMASK)!  /•  OFFISH  t/ 

4  IfftSTATUS  *  IfftSTATUS  OR  OMOffWASKi  /•  ONtSU  •/ 

4  RETURN!  /•  SUWOOEtSU  */ 

4  EM! 

3  END!  /•  OF  DO  FOREVER  «/ 

2  At 

CALL  KAE(N>.INt8UFiDATAtADD(IX))! 

EM!  /•  OF  COOEtENTRY  •/ 


294  2 


82BBS  898288  as, mas 


Fl/M-80  CWILSJ 


IFF 
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237  l 

238  2 


239  2 


240  2 


241  2 


3 

3 

3 

3 

3 

3 

3 


3 

3 

3 

3 

3 

3 


3 

3 

3 

3 

3 


{EJECT 

STA  MPAGEs  FROCEDtHE; 

DECLARE  STATITABlEAUH)  BYTE  DATA! 

R0H0.Ca7.MFF  STATUS'. 
rcu4.'  m  -'.cai2.'M4''. 

ROMS.'  1C  -'.Cai2.'IK-'. 

ROW,'  M3A-'.Cai2.'ANT-',0)l 
DECLARE  STATIENABLE  STRUCTURE! 

$HifttSK!7)  BYTE. 

SUWALUEI4)  BYTE)  DATA! 

0.0.8SH.8SH.8CH.0.8GH. 

03H.  14H.25H.6Wls 
DECLARE  STATIICB  STRUCTURE! 

NODE  BYTE. 

MINCH  BYTE. 

OELflFCH  BYTE. 

OELHHttSK  ADDRESS. 

ECHOSROW  BYTE. 

ECHOSCa  BYTE. 

SUIENABLE  ADDRESS)  DATA!SUlTCH.O.O.O.O.O..SrArtQllABL£)l 


FORHATIPAGEi  PROCEDURE; 

/•  FORMAT  R0U4  •/ 

CALL  OEAWTEJWBCf; 

CAU  «WE12..IFF4m{C0DE..TEK>fBir{7)>l 
IF  IFFISTATUS  THEN  TEMPlBUF!?)  * 

IF  IFFM4W0CE  T)CN  TEMPI  RJFU5)  *  'BM 
ELSE  TEHWFU5)  «  'AM 

IF  C IFFISTATUS  AM)  8)  >  0  TWN  TEMPMUFI19)  •  '*M 
CAU  UPDATE{LIfC(4.0.22..TErPIBUFl! 

/•  FORMAT  ROW.  •/ 

CALL  CLEARtTEMPIBLF! 

CALL  MOVE! 4. . IFFSM2IC0DE. . TEHPIBUF (51)1 

IF  (IFFISTATUS  AND  2)  >  0  THEN  TEM>«UF(9)  «  MM 

GALL  flOVE!3..0FF$ONITEXT(INDEXtIFF{STATU$.4>!))..7EMPSBUFI16)); 

IF  (IFFISTATUS  AND  10H)  >  0  THEN  TEMPIBUF(19)  «  MM 

CALL  (H)ATEIL1NE(6.0.19..TEHP«F)) 

/•  FORMAT  ROB  •/ 

CAU  M0ME(4..IFFIK3IC£)CE..TEMP»B1JF(3)); 

IF  (IFFISTATUS  AND  4)  >  0  TTtN  TENPIBUFI9)  «  't'l 

CAU  MO«l3..ANT$TEXTUFF$Af(TEMIAIPOSITION) . .TEHPMUF!  16) » 

CAU  UPOATESCINEO.0. 19. .TEW*BUF){ 

ENDS  /♦  OF  FORMAT »FAG£  */ 


n/iMO  cwphjer  iff 


IEJECT 


266 

2 

CO  FOREVER? 

26? 

3 

CMJL.  OEARIO); 

268 

3 

CMX  DISPLAY?. $TAT$TA8L£AU)i 

269 

3 

CALL  FORVKIPSCEl 

270 

3 

OKU.  READI.STATIICS)! 

271 

3 

CAa  OEAfWlirElO)? 

272 

3 

00  CASE  SMINIEX? 

273 

4 

CAa  COOEIENTRYI  /•  «-!  */ 

274 

4 

CAa  C0DE4ENTRYJ  /•  «-2  *1 

275 

4 

CAa  C00E«£NTRY?  /•  H-3A  «/ 

276 

4 

cnaiMtsoECT? 

277 

4 

CAa  HCWttCFF? 

278 

4 

CAL  ANTISELECT  t 

279 

4 

RETURN?  /•  SUBCODE  »/ 

280 

4 

00? 

2U 

3 

BO?  /*  OF  00  FOREVER  */ 

282 

2 

00?  /•  OF  STATtPAOE  »/ 

r 
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(EJECT 

263  i  IfftSlIDHOtt:  PROCEDURE  FWLIC; 

284  2  DECLARE  tFF*SUBWDE»TA8LEAU!»l  BYTE  DATA( 

W3WO»  IFF** » 

fiew.'  (H'.COLi.'n-Z'.CaU.'K-SA'.Caii.'STAT', 

MM4.'  H-A'.COLi.'MOFJI'.COLlI.'STBY'.CaiA.'ANT', 
IW.CCU.W. 

ROW.'  TK'.CCLi, 'TEST'.CCLlt.  'TEST'.OM 

285  2  DECLARE  IFF4SM4ENABLE  STRUCTURE  I 

$WNASK<7)  BYTE, 

SU*VALUE(8>  BYTE)  DATA! 

O.O.OAEH.OAEH.OA3H.18H.O. 

01H.23H,34H.55H,«X,  78H,  9AH.OAOHH 
204  2  DECLARE  Iff»IC8  STRUCTURE! 

NODE  BYTE. 

MUNICH  BYTE, 

DELWCH  BYTE. 

DEU1MASK  ADDRESS. 

ECHOtRtM  BYTE. 

KHMCOL  BYTE. 

SWENABLE  ADDRESS)  DATA(SWITCH.O.O.O.O,0..1FF»SW*ENABLE)i 


287 

2 

DO  FOREVER; 

288 

3 

CALL  CLEAR (0)! 

289 

3 

CALL  GRID(.SUBn00E4GRID); 

290 

3 

CBU_  DISPLAY!.  IfflSUSrOOE* TABLEAU 

291 

3 

CAU.  OISPIAYISUBHODEISTATUSILDC; 

222 

3 

CAU.  READ1.IFFIICB); 

299 

3 

DO  CASE  SUSINDET; 

294 

4 

CALL  COCEKXTRYt 

7t  IH  »7 

298 

4 

CALL  COtttEXTRYI 

7«  N*2  *7 

290 

4 

cau.  tmtomm 

7#  N-3A  §/ 

297 

4 

CALL  STATIPACE; 

298 

4 

CALL  H44SELECT: 

299 

4 

CAU  NORMSTBY; 

900 

4 

CAU  ANTISELECT; 

901 

4 

CAU  KKMlOff; 

902 

4 

CAU  RADSTEST; 

903 

4 

CAU  TEST; 

304 

4 

CAU  IFFIOWOff; 

905 

4 

ENOt  /*  OF  DO  CASE  ♦/ 

906 

3 

EMM  /♦  OF  00  FOREVER  #7 

907 

2 

EMM  /•  OF  IfflSUBNODE  «7 

308 

1 

EMM  /•  OF  Iff  •/ 

mu  nrownow 


K 


COOE  AREA  SIZE  *  0931M  23530 
VARIABLE  AREA  SIS  >  OOIJH  I9D 

nunui  stack  sis  >  oooeh  m 

548  LUCS  READ 


4 
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A 


H/H-flO  COfKO 


IFF 
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0  PR0GRM1  ERROR  IS) 

END  OF  FUIHO  COtf  ILATION 
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t«IO 


ISIS-n  PL/M-SO  V3.1  COMPILATION  CF  «9JL£  HWIO 

OBJECT  noaa  PLACED  IN  :Fl:AfcWM.06J 

CWPlLER  im  BY!  PW80  «Fl!ABSHUl.SfiC  MTE(270CT79)  DOUG 


*mTVECT0R(4.20H)  TITL£(  'HUIO't 

1  tWOs  DOT 

2  1  DECLARE  flHDUFAtl534)  BYTE  EXTERNAL, 

RMBUFBU53LI  BYTE  EXTERNAL, 
OEBOUNCEtCOUNT  BYTE: 

3  1  AOOtSUQ:  PfiQCEXPEfSWV)  EXTERNAL! 

4  2  DECLARE  SUV  BYTE: 

9  2  EMt 


/•  TtCSE  INTERRUPTS  (0  AND  1)  ARE  GENERATED  BY  DC  INTERRUPT  CONTRtUER 
(PN  8259)  AMI  REQUIRE  INTERRUPT  VECTORS  AS  SPECIFIES  BY  DC  INTVECTOR 
STATEtENTAT  THE  BEGINNING  CF  THIS  WOJLE. 

TTCSE  INTERRUPTS  ARE  DISTINCT  FROM  THOSE  THAT  (MY  BE  GEKRATED  BY  THE 
PROCESSOR  MUCH  REQUIRE  INTERRUPT  VECTORS  STARTING  AT  LOCATION  0.  •/ 

4  1  DEBOUNCE:  PROCEDURE  INTERRUPT  0! 

/»  THIS  PROCEDURE  STARTS  PROGRAfflASU  TIHER  0  WHICH  GEJCRATES  DC 
INTERRUPT  THAT  CAUSES  TIE  (SMEPANE  SWITCH  TO  BE  READ.  •/ 

7  2  OEBOUNCEtCOUNT  *  31  /•  DELAY  NULTIPLER  *( 

•  2  OUTPUT  (1CH)  >0:  /•  LSD  */ 

9  2  OUTPUT  (10H)  >0:  /*  NSB  40  IB.  DELAY  *1 

10  2  QUTPUT(O)  -  20H:  /*  SIGNAL  END  OF  INTERRUPT  */ 

11  2  00) 

12  1  flEADtHENBRANEtSU:  PROCEDURE  INTERRUPT  It 

13  2  DECLARE  INASK, ROW. CCLS, Q)  BYTE, 

ICUIQU)  BYTE  DATA<0,0,1,0.2,3,0,4), 

SWBUFI7I  BYTE) 

14  2  OEBOUNCEtCOUNT  *  OEBOUNCEtCOUNT  -  1; 

15  2  OF  OEBOUNCEtCOUNT  >  0  THEN  DO) 

17  3  OUTPUT(IOH)  <  01  /»  START  TIC  TIHER  AGAIN  «/ 

18  3  OUTPUTIICH)  >  0) 

17  3  OUTPUT (0)  •  20444  /*  CLEAR  TW  INTERRUPT  •/ 

20  3  RETURN) 

21  3  09) 

22  2  MSK  *  OFEH; 

21  2  00  ROW  *  0  TO  6)  l*  INPUT  DATA  FOR  ALL  ROUS  WHILE  */ 

24  3  OUTPUT (3*44)  *  MASK)  /*  TtC  SWITCH  IS  DEPRESSED.  •/ 

25  3  SHtBUF(SOU)  *  IWUTOIHK 

21  3  HASK  »  RGL'.fttSKil): 

27  3  END) 

21  2  MSK*  It 

27  2  DO  «N  *  0  JO  41 

3D  3  COLS  >  NOT  artBUFIROMI) 

31  3  IF  COLS  >  0  THEN  GO!  /•  IF  THIS  IS  THE  RIGHT  ROM  THEN  ...  *f 


sr  at  feftfc 


PUB-80  COMPILER  HU10 


Z70CT79  PACE  2 


33  4  0  «  -  It 

34  4  DO  WILE  COLS  >  OS  /•  ...  LOCATE  TIE  CORRECT  COLUMN  •/ 

35  5  0  -  0  ♦  U 

34  5  COLS  «  SHR!COLS.l)t 

37  S  DC! 

38  4  IF  ROU  >  4  TTEN  Q  *  TCWCIS);  /•  CORRECTION  FOR  USST  THO  ROUS  #/ 

40  4  CAa  A0OTSWQ(RCW«8  ♦  01 S  /«ACO  SU  VALUE  TO  IWUT  QUEUE*/ 

41  4  OUTPUT!  13H)  »  30HS  /*  REENABLE  THE  TIMER  ♦/ 

42  4  0UTPUTI3CH)  «  Os  /♦  RESET  T>£  lOBRASE  MASK  */ 

43  4  OUTPUT(O)  «  20H!  /♦  SIGNAL  END  OF  INTERRUPT  */ 

44  4  RETURNS 

45  4  EW<  /•  OF  IF  COLS  >  0  */ 

4*  3  ELSE  MASK  *  SHJfttSK.llS  /•  TRY  TIC  TCXT  ROU  «/ 

47  3  ENDS  /*  OF  DO  ROU*/ 

48  2  OUTPUT!  I3H)  »  SONS  /»  REENABLE  TITER  0  */ 

49  2  OUTPUT  (30H)  «  01  /•  RESET  TSC  IENBRANE  MASK  •/ 

50  2  OUTPUT(O)  «  20HS 

M  2  EWS  /•  OF  READ4MEMRATBSU  •/ 


52  1  SCREEMINTENSITYs  PROCEDURE  (LEVEL)  PUBLICS 

53  2  DECLARE  LEVEL  BYTE) 

2  OUTPUT (32H)  «  LEVELS 

2  EWS 


1  OUTSHARDUAREs  PROCEDURE  PUBLICS 
/•  INITIALIZE  VARIOUS  HARDWARE  DEVICES  •/ 

2  DISABLES 

2  OUTPUT  (33H)  -  83HS 

2  0UTPUT(23HS  *  OOHS 

40  2  0UTPUm3H>  >  30HS  /•  RESET  TIMER  0  TO  NODE  0  •/ 

41  2  OUTPUT!  13H)  «  70HS  /*  RESET  TIMER  l  TO  NODE  0  •/ 

42  2  0UTPUTI13H)  *  OBOHS  /»  RESET  TITER  2  TO  NOOE  0  •/ 

43  2  OUTPUTOOH)  «  OS  /*  LOAD  MEMBRANE  ENABLE  MASK  »/ 

44  2  CAa  SCREEN4INTENSITYI0)  I  /»  BLANK  TTC  SCREEN  */ 

/•  TIE  FOLLOWING  VALUES  MUST  AGREE  WITH  THE  VALUES  USED  IN  THE 
INTVCCTOR  STATEMENT  AT  THE  BEGINNING  OF  THIS  MODULE.  •/ 

43  2  (UTPUT(O)  ■  34HS  /*  INITIALIZE  INTERRUPT  CONTROLLER  -  ICHI  */ 

44  2  OUTPUT(l)  «  0!  /»  INTERVAL  *  4,  LOCATION  -  ICW2  #/ 

47  2  OUTPUT!!!  *  OFCHS  /»  0CU1  •/ 

48  2  ENABLES 

49  2  EWS  /•  OF  IMTIHAROUARE  */ 


70  t  UP0ATE4RHS  PROCEME  PUBLICS 

/•  INITIATE  DMA  TRANSFERS  TO  LOAD  REFRESH  MEMORIES  */ 


71  2 


DISABLES 


Pl/H-80  CCMILER  HUIO 


270CT79 


72  2  0UTPUTI54H1  *  LCHr.Ff»JFA»:  /*  INITIATE  DMA  1  ♦/ 

73  2  0UTPUT<54H)  *  Hl6h(.f-lR«)I 

74  2  OUTPVnSSHJ  *  OFFHi  /*  L?H  OF  WORD  COCHT  */ 

75  2  0UTPUTC55HI  *  85H;  /•  MSH  OF  UCftD  COtWT  ♦  80H  »/ 

76  2  flOTPUTISaO  *  4CHS  /»  OUTPUT  K5IE  TO  W1A  CONTROLLER  */ 

77  2  OUTPUT <22H)  *  40H;  /•  TOGGLE  DM  RS2  */ 

78  2  OUTPUT 122H)  »  0! 

7f  2  CALL  TIU16CH)!  /•  SHORT  DELAY  */ 

80  2  0UTPUTI56H)  «  LCUI.P.13lFB)i 

81  2  0UTFUT(54H)  *  HIGHI.RHBUFBIt 

82  2  OUTPUT  157H)  •  OFFH; 

83  2  OUTPUT (57H)  «  SEHi 

84  2  OUTPUT  (KH)  «  4CHS 

85  2  0UTPUTI22H)  *  80HS  /»  TOGGLE  DM  RQ3  ♦/ 

86  2  0UTPUTI23H)  *  01 

87  2  ENABLES 

88  2  ENDS  /•  OF  UPDATE  Wl  •/ 

8P  1  EWS  /*  OF  HNIO  */ 


mu£  UFORMTION: 

CODE  AREA  SIZE  *  0186H  3700 

VARIABLE  AREA  SIZE  *  OOOOH  13D 
HUUUI  STOCK  SIZE  *  OOOOH  100 
128  LW5  READ 
0  PROGRAM  ERRORISl 
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BO  OF  PL/N-80  COMPILATION 


Pl/H-BO  CCfflLER 
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isis-ii  pl/n-oo  V3.0  ccmpilation  of  home  fil 

OBJECT  HGOULE  FlACED  IN  *Fi:FIiiUF.CW 

CWFIliR  INWYED  8ft  PLHSO  iFlsFIlffJF.Sac  DATE(8HAR7?> 


•TITLE! 'FILBUF') 

1  FIU*  DOS 

2  I  DECLARE 

RHIBUFA!  1536)  BYTE  EXTERNAL.  /•  1AHM2  */ 
fW»6UFB(lU6)  BYTE  EXTERNAL. 

CH*F0NT«ATA(33)>  BYTE  EXTERNAL! 

3  1  DECLARE  TRUE  LITERALLY  'OfFH', 

FALSE  LITERALLY  'O'! 


4  I  FILLtBUFs  FF«XIUTE(FOU.CH*CaL.  TEXT«f>rR.REr«f>TR.NCNAR.NOOE>  PUBLICS 

3  2  DECLARE  ROU  BYTE.  /»  ROW  MLUBERs  0  -  8  »/ 

ONCOL  BYTE.  /»  COLUHN  ADDRESS  OF  FIRST  CW  0  -  23  *t 
TEXTIPTR  ADDRESS.  /♦  TEXT  ADDRESS  */ 

REFIPTR  ADDRESS,  /♦  REFERENCE  TEXT  ADDRESS  »/ 

NCHAR  BYTE.  /•  NUMBER  OF  CHS  IN  TEXT  STRING  •/ 

(DOE  BYTES  /*  SEE  BELOW  «/ 

•  2  DECLARE  (TEXT  BASES  TEXTIPTR) 11)  BYTE. 

(REF  BASED  REFIPTR) U)  BYTE. 
(FONTtfm.REFIFONTIPTR.BUFIPTR.BLFIOFFSET)  ADDRESS, 

(FONT  BASED  FONTSPTRXl)  BYTE. 

(REFIFONT  BASED  REFIF0NT1PTR ) ( 1 )  BYTE, 

CUJF  BASED  BUFIPTRH1)  BYTE, 

(RWCa.SEaOR.SECTORICa.HASX.NOTHASK.N,  I.J.K.U.LOC.IBNNASK, 
REFUTE, R)  BYTEs 


/t  THIS  PROCEDURE  CONVERTS  ASCII  TEXT  STRINGS  TO  FONT  DATA  AND  UPDATES 
THE  REFRESH  HENORY  BUFFERS.  T)€  RON  AND  CCLUW  VALUES  DETERHKC  TS€ 
SCREEN  COORDINATES  OF  THE  FIRST  CHARACTER.  EACH  NEW  CHARACTER  IS 
(WARED  IHTH  THE  CHARACTER  IN  T>€  CORRESPONDING  LOCATION  IN  TIC 
CURRENT  DISPLAY  BUFFER  <®C£  ON  THE  SCREEN)  TO  CETERflKC  T)C  ACTION 
ICCESSARY  TO  UPDATE  T)C  REFRESH  HEMRY  BUFFERS. 

IF  NODE  «  TRUE  BLA'K  INPUT  CHAWCTER3  ARE  IWOfEP! 

IF  NDK  »  FALSE  BLAMC  ISPUT  CH5RACTERS  APE  PROCESSED. 

THE  OTUT  TEXT  STRING  MUST  BE  24  CHARACTERS  OR  LESS  (OfC  LISE).  •/ 


r 

• 

flm-90  COrPIlER  FlLBUF 

8RAR79  PACE  2 

IEJECT 

7  2 

ICWSECW:  PROCEDURE! 

8  3 

MSK  >  SM.lRASK.il! 

9  3 

Norasr  *  not  fttii:; 

tO  3 

SECTOR  *  SECTOR  »  11 

1 

11  3 

IF  SECTOR  <  6  Th&l  (VftPIX  *  .RMBUFA  ♦  BLFMFFSETl 

} 

13  3 

aSE  eiFIfTR  *  .PlfKFB  ♦  KJFHFFSETl 

14  3 

If  (SECTOR  >  31  (tiB  teUHAX  THEN  DCs 

18  4 

MASK  »  11 

1 

IT  4 

WTJBSK  *  0FEH1 

f 

i 

18  4 

NEMtflASX  >  FALSE! 

j 

19  4 

ETC! 

f 

j 

2D  3 

DC!  /»  OF  ICWSECTOR  */ 

| 

21  2 

iTMTEi  FROCEHK! 

f 

22  3 

SECTOR KOL  >  (SECTORtCOL  ♦  1)  AM)  OFMl  /♦  RODUU  18  «/ 

23  3 

IF  SECTOR*!*.  «0  THEN  Ml  J€N*S£C70R> 

t 

25  3 

aSE  BUF4PTR  *  8UF4PTR  ♦  It 

* 

21  3 

001  /«  OF  UPDATE  •/ 

Sj 

23  2 

OMGNCHs  PROCEDURES 

1 

j  j 

28  3 

FOKTtfTR  «  .CWF0NT4DATA  ♦  LOCtSl 

*  ' 

J 

29  3 

REF4F0KT4PTR  ■  .CMFONTSOATA  ♦  AEF4L0M: 

30  3 

DO  J  *  0  TO  41  ft  PROCESS  9  CHARACTER  FRAGMENTS  #/ 

31  4 

U  »  FORTUM 

32  4 

*  *  KFV9IUJU 

31  4 

00  K  »  0  TO  96  BY  16W*  T  TIRES  »/ 

31  3 

IF  H  HO  BUFLKI  «  BUF0C1  OR  fiASKl 

38  5 

ELSE  IF  R  T>€)(  BUF(K)  »  BUF(K)  AMO  MO  TRASK! 

1 

5  »  MU. lit 

9  5 

8  •  M1R.1II 

i 

40  5 

BOt 

i 

41  4 

OU  UPDATE! 

42  4 

END?  * 

43  3 

QAU.  UPDATE!  /♦  SKIP  THE  SIXTH  CHARACTER  FRAGMENT  */ 

1 

i 

44  3 

00!  /»  OF  AS0WCWCH  »/ 

I  i 

r 

45  2 

ABOOOWCHJ  PROCEDURE! 

1. 

1 

44  3 

REF4F0RWPTR  *  .CMF0NT4DATA  ♦  R£FtUX»Sl 

! 

0  3 

00  4  •  0  TO  4! 

j- 

01  4 

R  -  REFtPONTUM 

i 

I  - 

49  4 

00  K  >  0  TO  98  BY  18! 

f 

SO  5 

IF  R  TTCR  OUF(K)  *  BUF(K)  AMI  NOTRASK! 

.  -  . 

92  3 

4  •  SMTIR.l)! 

S3  9 

00! 

94  4 

CALL  OPOATEl 

95  4 

EMI. 

91  3 

CAL  UPDATE; 

59  3 

BOt  /•  OF  AEKAfMLWCH  »/ 

91  2 

mm  procedure-. 

| 

90  3 

SECTORtCOL  *  SECTOR  tea  ♦  8! 

I 

40  3 

IF  SECTORtCOL  >  15  THEN  00! 

1 

82  4 

SECTORtCOL  *  SECTOR  tea  -  18! 

1 

88  4 

Cfti  KWSECTOR! 

J 

44  4 

SUF9TR  »  SjFtPTR  ♦  SECTORAL! 

I 

t 

45  4 

BO! 

J 

PL/R-80  COMPILER  FILBOF 
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66 

3 

aSE  8UF4PTR  -  8UF1PTR  *  6! 

67 

3 

EMU  /»  OF  SKIP  »/ 

/«  BEGIN  FIL8LF  CCfE  »/ 

68 

2 

IF  (ROW  >  3)  OR  ICHICOL  >  23)  T)£N  RETURN!  /*  ERROR  */ 

70 

2 

flMca  *  CH*caL*4; 

71 

2 

SECTOR  =  RRICOL/16! 

72 

2 

SECTOR 1C0L  *  fiMCOL  AND  CFH! 

73 

2 

8UF4CFFSET  *  64  ♦  CCUELE(R«)»160! 

74 

2 

IF  SECTOR  <  6  THEN  DO! 

76 

3 

BLF4PTR  *  ,fif!S£t?A  ♦  BUFtCfFSET  ♦  SECTOR JCOLi 

77 

3 

MASK  *  1! 

78 

3 

IF  SECTOR  >  0  THEN  MASK  *  SUM, SECTOR)! 

80 

3 

NOTNASK  «  NOT  MASK! 

81 

3 

tCWWASK  »  TRUE! 

82 

3 

EM! 

83 

2 

aSE  DO!  /*  SECTOR  >  5  «/ 

84 

3 

8UFJPTR  ■  .RM8UFB  +  BUFIOFFSET  ♦  SECTORAL! 

85 

3 

tcmnsx  *  FALSE! 

86 

3 

MASK  >  ROLteOH, SECTOR  -  5)i 

87 

3 

NOTNASK  -  NOT  MASK! 

88 

3 

EM)! 

89 

2 

IF  (NCHAfl  *  CH4C0L)  >  24  T)€N  N  »  23  -  CWCOLi 

91 

2 

aSE  N  *  NCHAR  -  l; 

92 

2 

DO  I  «  0  TO  N!  /*  PROCESS  EACH  CHARACTER  */ 

93 

3 

UJC  *  TEXT(I)  -  20H! 

94 

3 

REFSLOC  «  REF(I)  -  20 H! 

95 

3 

IF  UK  *  REF  HOC  THEN  CAX  SKIP!/*  CH  ALREADY  IN  BUFFER  •/ 

97 

3 

ELSE  DO: 

98 

4 

IF  LOC  >  0  TttN  CALL  AODNEWCH;/*  UK  «  0  «»  BLANK  •/ 

100 

4 

aSE  DO! 

101 

5 

IF  NODE  T)£N  CALL  SKIP; 

103 

5 

ELSE  CALL  REH0VEWLWCH4! 

104 

5 

END! 

105 

4 

EM); 

106 

3 

END!  /•  OF  00  I  •/ 

107 

2 

EM)!  /•  OF  FIU.SBUF  */ 

108 

1 

EMK  /«  OF  COU  ♦/ 

NODULE  DFORNATION: 

CODE  AREA  SIZE  <  0326H 

8060 

VARIABLE  AREA  SIZE  a  OOIEH 

30D 

rnilHUN  STACK  SIZE  a  OOOSH 
136  LINES  READ 

0  PROGRAM  ERROR(S) 

3D 

EM)  OF  PUN-80  COTPILATION 
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GRID 


ISIS-Il  PL/N-80  V3.0  COTILATIM  OF  WDtU  GRID 

ORjECr  MX IE  FLACOI  IN  :F1:GRID.MJ 

COMPILER  INVtSID  By:  PUS30  sFliGRID.SRC  WTEH3VR79)  DEBUG 


fTlTLEI'ORID') 

1  GRID:  DO! 

2  1  DECLARE  RM*PJFA(I>  BYTE  EXTERNAL, 

RMBUFBU)  BYTE  EXTERNAL) 

3  1  DECLARE  HORZ  LITERALLY  'OFEH', 

VERT  LITERALLY  'OFDH'S 

♦  I  VERTiVECT:  PROCEOJREIX.YO.YI)) 

/»  GEYERATE  REFERESH  fBICRY  DATA  FOR  VERTICAL  VECTOR. 

TK  GENERATED  DATA  IS  'OKED'  WITH  THE  CONTENTS  OF  THE  REFRESH  MEMORY 
DIFFERS  RMBUFA  AND  RIWPUFB.  »/ 

3  2  DECLARE  (X,  /»  COLOT  ADDRESS:  0  <*  X  <*  M3  */ 

YD,  /*  STARTIM3  ROW  ADDRESS  */ 

YI)  /t  ENDING  ROW  ADDRESS:  0  <=  YO  <*  Y1  <=  95  »/ 

BYTE; 

6  2  DECLARE  (MC.L.N)  BYTE, 

(KO.K1.J)  address; 


7  2  IF  (X  >  143)  OR  (YO  >  Yt)  OR  (Yl  >  95)  THEN  RETURN: 

9  2  N  <  SW(X, 4); 

10  2  L  *  X  AND  OFH; 

11  2  KO  -  DOUBLEIYOX16  ♦  L? 

12  2  K1  *  DOUBLEt Yl )*16  ♦  L? 

13  2  IF  N  <  4  THEN 

14  2  DOS 

13  3  *  «  RCU8CH.N  ♦  lit 

14  3  DO  J  *  KD  TO  XI  BY  16) 

17  4  RMBUFAIJ)  ■  RWBLFAIJ)  OR  )K: 

M  4  END) 

19  3  END) 

ELSE 

20  2  DO) 

21  3  IK  «  R0L(80H.N  -  5)) 

22  3  DO  U  «  KO  TO  K1  BY  16) 

23  4  RN*0UFB<J)  *  Rf!iBjFB(J)  OR  IK) 

24  4  00) 

23  3  END: 

24  2  BO)  /•  OF  VERTIVECT  »/ 


,:Jk_ .  * 


so 
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*>£CT 

27  1  HOWIVECTi  PROCEHREfXO.Il.Y). 

/#  GENERATE  FEFFETH  HE-ORY  MTA  FOR  HORIZONTAL  VECTORS. 

TVE  GENERATED  CAM  IT  CcE.r  HIM  THE  CONTENTS  OF  Tt£  REFRESH  JEWRY 
85 FEES  ftttBUFA  AfO  :"1?.F8.  *t 

28  2  DECLARE  (XO.  /»  STARTING  CCLl»l  ATD3ESS  •/ 

XI.  /'*  ENDING  CCL'.T’N  ADDRESS:  0  <=  XO  <*  XI  <*  143  ♦/ 

Y)  /»  ROW  ADDRESS:  0  <»  Y  <*  95  */ 

BYTE! 

29  2  DECLARE  INO.Nl.LO.Ll.HX.flKO.HKl.J)  BYTE. 

BLFtPTR  ADDRESS. 

(BUT  BASED  8UF4PTRX1)  BYTE; 


90  2  FROCtA:  PROCEDURE; 

/•  CEffRATE  HORIZONTAL  VECTOR  RH  DATA  FOR  MEMORY  A.  SECTORS  0  -  5.  */ 

31  3  IKO  »  It 

32  3  IF  NO  >  0  TVEN  IKQ  *  SHLtl.NO>* 

34  3  IF  NO  «  HI  TffN 

35  3  DO;  /•  SHORT  VECTOR  TOTALLY  CONTAINED  IN  Off  SEGffNT  •/ 

34  4  DO  J  «  LO  TO  US 

37  3  BUF(J)  *  BUF(J)  OR  *0; 

38  5  00; 

39  4  RETURN; 

40  4  EM); 

/*  Nl  >  NO  -  VECTOR  EXTENDS  TORE  TWN  ONE  SEGffNT  #7 

41  3  DO  J  «  LO  TO  15;  /*  LEFT-HOST  PORTION  ♦/ 

42  4  BUF(J)  »  BUF(J)  OR  IKO; 

43  4  EM); 

44  3  IF  Nl  >  6  TffN  Kl  *  40Ht 

44  3  ELSE  NCI  *  SHU. Nil; 

47  3  IF  (Nl  -  NO)  >  1  TVCN 

48  3  OOt  /•  MIDDLE  PORTION  */ 

49  4  IK  *  MCI  -  SH.OKO.1); 

50  4  DO  J  «  0  TO  15; 

51  5  BUF(J)  <  BIIF(J)  OR  IK! 

52  3  EM); 

53  4  END: 

34  3  IF  HI  <  6  THEN 

35  3  DO  J  *  0  TO  Li;  /*  RIGHT-HOST  PORTION  ♦/ 

56  4  BUF(J)  »  BUF(J)  OR  1*1; 

37  4  EM); 


30  3 


EM);  /»  OF  PROCfA  >7 


PL/n-eo  COrftUR  GRID 
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4EJECT 

39  2  PR0C4B?  PROCEDWfE; 

/•  GKERATE  HORIZONTAL  VECTOR  W  DATA  FOR  IBIORY  B>  SECTORS  6  -  «.  •/ 

60  3  *0  «  15 

61  3  if  no  >  t  nen*o  *  sm.ii.no  - 1>; 

63  3  IF  NO  >  5  DCN 

64  3  00. 

63  4  IF  NO  *  N1  TKN 

66  4  DO?  /»  SHORT  VECTOR  TOTALLY  CONTAINED  IN  OK  SEOENT  »/ 

67  3  DO  J  «  LO  TO  Li? 

68  6  BUF(J)  ■  BUF(J)  OR  *0? 

69  6  BCl 

70  3  RETURN? 

71  3  00? 

/•  HI  >  NO  «/ 

72  4  DO  J  *  LO  TO  IS?  /«  INITIAL  PORTION  OF  VECTOR*/ 

73  3  BUFIJ)  >  8UFIJ1  OR  *0? 

74  3  END? 

73  4  END? 

76  3  IK1  >  R0LI80H.N1  -  31? 

77  3  IF  INI  -  NO)  >  1  T®l 

78  3  DO? 

79  4  *  «  *1  -  1? 

80  4  DO  J  *  0  TO  13?  /•  DIDDLE  PORTION  •/ 

81  3  BUFIJ)  •  BUFIJ)  OR  HK? 

82  3  END? 

83  4  END? 

84  3  DO  J  *  0  TO  LI?  /*  END  PORTION  */ 

85  4  BUFIJ)  *  BUFIJ)  OR  IK1? 

86  4  END? 


87  3 


BO?  /•  OF  PROCfB  */ 


t 
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*XCT 

/•  KG  IN  HORMVECT  PROCESSING  ♦/ 

88  2  IF  <XO  >  ID  OR  (II  >  143)  OR  (V  >  93)  TTEN  RETU3H 

90  2  NO  *  SWU0.41:  /♦  STARTING  SECTOR  INDEX:  0  -  8  •/ 

91  2  N1  «  SHNXMli  /*  ENDING  SECTOR  INDEX  »/ 

92  2  LO  *  10  AND  OFH; 

93  2  U  «  II  AND  OFH: 

94  2  IF  NO  <  4  THEN 

95  2  DO: 

94  3  8UF4FTR  »  .RM8UFA  ♦  XUBLEiriHi; 

97  3  CALL  FfiOCMl 

98  3  END: 

99  2  IFNI  >5TKN 

100  2  DO? 

101  3  UFtm  •  .RTNBtfB  ♦  DOOBlf  IY)»14J 

102  3  CALL  PR0C4B! 

103  3  B8W 

104  2  EWt  /•  OR  H0R24KCT  »/ 


Pl/IHtt  COMPILER  GRID 


IE.CCT 

105  1  GRID:  FROCEWREILISTIPTR)  PUBLIC; 

/•  GEICKATE  PH  DATA  FOR  A  GRID  DEFINED  BY  A  LIST  OF  HORIZONTAL 
AND  VERTICAL  VECTORS.  THE  LIST  HAS  T>€  FCtLCHING  FORMAT! 

GRI04LIST  :»  (10IR,  START.  END.  LOCI.  L0C2.  ....  LOON),  OFFH) 

1.  IF  DIR  *  HORZ  WEN  START  *  10;  END  «  Hi  LOCI  *  VI.  t  O  I  <*  N. 

THIS  DEFINES  N  HORIZONTAL  VECTORS  AT  COORDINATE  POSITION 
(X0.V1~I1.Y1).  (X0.Y2-X1.Y2) . (I0.YN-X1.YN). 

2.  IF  DIR  *  VERT  THEN  START  *  TO!  END  *  VI.  LOCI  *  «.  1  <=  I  <*  N. 

THIS  DEFINES  N  VERTICAL  VECTORS  AT  COORDINATE  POSITIONS 
(Xt.YO-Xl.Yl).  (X2.YO-X2.Y1) . UN.YO-XN.Yl). 

DC  INFER  SUBLIST  MY  BE  REPEATED  AS  MNY  TINES  AS  NECESSARY. 

DC  LIST  TERMINATOR  (OFFH)  IS  REQUIRED.  *t 


106 

2 

DECLARE  LJST4PTR  ADDRESS, 

(LIST  BASED  LISTIPTRH1)  BYTE. 
(CH.1.X0.X1.Y0.Y1)  BYTE; 

107 

2 

CH  *  L1ST10); 

toe 

2 

i*o; 

109 

2 

DO  WILE  040  OFFH; 

110 

3 

IF  CH  *  HORZ  DCN 

111 

3 

oo; 

112 

4 

XO  -  L1ST(I  ♦  1); 

113 

4 

11  -  LIST II  ♦  2); 

114 

4 

CH  -  LIST! I  ♦  3)? 

113 

4 

I  «  X  ♦  3; 

116 

4 

DO  WILE  CH  <  OFOH; 

117 

5 

CALL  HORZ4VECTIXO.X1.CH 

118 

5 

I«I  *11 

119 

3 

CH  «  LISTUM 

120 

5 

END; 

121 

4 

end; 

ELSE 

122 

3 

DO; 

123 

4 

IF  CH  *  VERT  THEN 

12* 

4 

DO; 

125 

3 

YO  *  USTd  ♦  u; 

126 

3 

VI  *  USTd  ♦  2); 

127 

3 

a  *  USTd  ♦  3); 

128 

3 

1*1  +  3; 

129 

3 

00  WILE  CH  <  OFOH; 

130 

6 

CALL  VERTtVECTICH, <0. 

131 

6 

I  •  I  ♦  i; 

132 

6 

a »  listid; 

133 

6 

EM); 

13* 

3 

EM); 

135 

4 

ELSE  RETURN!  /»  ERROR  «/ 

136 

4 

EM); 

137 

3 

00!  /•  OF  DO  WILE  a  O  Of 

138 

2 

EM);  /•  OF  GEWCRID  */ 

139  1 


DOT  /•  OF  COUGRDt  DO;  •/ 


awn 

PL/H-eO  CCrflliR  GRID 


MULE  INTOBMAT IC3H* 

CQBE  AREA  SIZE  *  M53H  11070 
VWIABLE  AREA  SIZE  «  0031H  330 

WttlfWl  STACK  SIZE  «  OOOoH  60 
203  LINES  REAS 
0  PNOGRAN  BSCRIS) 
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ISIS-II  PL/fl-30  V3.1  COMPILATION  OF  NODULE  ONV 

OBJECT  H0B.lI  PLACED  IN  :F1:BNV.06J 

OWIIER  IW  BY!  PUS30  :Fl:CNV.SfiC  DATE<270CT79)  DEBUG 


ITlTLEf'DNV') 

/•  INITIONV,  DISPLAY*ACTIVE*WAYPT,  DISPLAYtPRESENTJPOSITION,  DNVtSUENOOE.  ONVWAVtSTftTUS  */ 
t  ONt  DO; 

2  1  DEC LARE  HORZ  LITERALLY  'OFEH'. 

WRT  LITERALLY  'OFEH'; 

WHIST  IMCUIDECFliCDULIT.SRC) 

3  t  dnwflyjtos  procedure  oteriial; 

6  2  EMK 

7  1  ONVtBACXUPfNAVi  PROCEDURE  EXTERNAL! 

8  2  EM): 

9  1  DNWUAYPTISTATUS:  PROCEDURE  (TYPE)  EXTERNAL: 

10  2  DECLARE  TYPE  BYTE: 

11  2  EM): 

12  1  ONWCXPT:  PROCEDURE  EXTERNAL: 

13  2  EM): 

14  1  F0RHAT4UAYPHC00R0:  PROCEDURE (UAYPTt ADO)  EXTERNAL* 

15  2  DECLARE  UAYPTMDD  ADDRESS; 

16  2  EM): 

17  1  PACKIUAYPT:  PROCEDURE(NBYTES.SOURCE*PTR.DEST*PTR>  EXTERNAL: 

18  2  DECLARE  NBYTES  BYTE.  (SOUKZSPm.BESUPW  ADDRESS: 

19  2  END; 

20  1  (WACK4UAYPT:  PROCEDUREOfflYTES,  Samtm.KSTtPm  EXTERNAL; 

21  2  DECLARE  NBYTES  BYTE.  (SOURCEIPTR.DESTtPTR)  ADDRESS! 

22  2  END; 

23  1  DNWTGTi  PROCEDURE  EXTERNAL! 

24  2  EMK 

23  1  ONVtUPDATE:  PROCEDURE  EXTERNA.! 

26  2  EM): 

27  1  CLEAR:  PROCEDUREISTARTWOU)  EXTERNAL) 

28  2  DECLARE  START4RCW  BYTE: 

29  2  END: 

30  1  CLEAR*  TENP4BIF:  PROCEDURE  EXTERNAL; 

31  2  80; 

32  1  INSERT:  PR0C8)URE(NCHAR.S0URCE*P7R,IEST*PTR,rELMCH.DELIWMSX)  EXTERNAL! 

33  2  DECLARE  (NCHAR.DELfKCH)  BYTE.  (SOURCEtPTR.DESTSPTR.DEUWIAStO  ADDRESS! 

34  2  END; 

35  I  CRIDt  PROCEDURE(POINTER)  EXTERNAL; 

36  2  DECLARE  POINTER  ADIFfSS: 

37  2  END: 

38  1  DISPLAY:  PROC£flRE(IN$PTR)  EXTERNAL! 

39  2  DECLARE  INtPTR  ADDRESS: 

40  2  END: 

41  1  READ:  PROCEttREUCWPTR)  EXTERNAL; 

42  2  DECLARE  ICB1PTR  ADDRESS; 

43  2  END: 

44  1  UROATEN.INE:  PRCCEBJREIROU.COL.NCHAR.TEXTIPTR)  EXTERNAL: 

43  2  DECLARE  (ROH.COL.NCWR)  BYTE.  TEXTWTR  ADCRESS: 

46  2  EM): 

/•  PUBLIC  VARIABLES  USED  BY  DNV  PROCEDURES  */ 

47  1  DECLARE  ZEROU)  BYTE  PUBLIC  OATA<  OOO'l! 


fl/n-tt  oorriiiR  wv 
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«  t  OEOARE  SICWOEtSTEF'SWtENABLE  STRUCTURE! 

SMMSKI7)  BYTE. 

$wvw.te<t)  byte;  rvsuc  DAwo.o,o.o,o.o.esn)i 
49  1  DECLARE  SUBWOEt  AMENABLE  STBUCRIR£< 

SWIWSM7)  BYTE, 

SUtVALUEU)  BYTE)  PL1LIC  OATAIO.O.O.O.O.O.BOH.OM 

39  1  DECLARE  $UBWOE*ICB  STRUCTURE) 

WOE  BYTE.  NUMCH  BYTE,  EELMKH  BYTE,  DELHVIASK  ADDRESS. 

ECHWRCM  BYTE,  ECK-tCGL  BYTE,  SUSENA8LE  ADDRESS)  DATA! 

9IITCN.0. 0.0,0, 0..SU£nOOE«SMENABLE)t 

31  1  DECLARE  SINGLEfOlGlTIICB  STRUCTURE) 

WOE  BYTE, 

MUNCH  BYTE, 

OOINCH  BYTE. 

OBJNHASK  ADDRESS, 

ECH04R0U  BYTE. 

ECHOtCOL  BYTE, 

SHSENA8LE  ADDRESS)  PUBLIC  DATA(DIGIT,l,0,0,2,5,.SUBWtt»SWEHABLE)l 

32  1  DECLARE  SUBtSUBnOCEtGRIOItl  BYTE  PUBLIC  DATA) 

HORZ. 0.92.22.32, 

HORZ, 2.92.52. 72, 92. 

VERT, 32.92, 2.32.62, 

VERT. 22.92, 92,  CFFHM 

/•  EXTERNAL  VARIABLES  •/ 

SB  I  DECLARE 

QFFMKfTEXT(2)  STRUCTUREtCHO)  BYTE)  EXTERN)!, 

BLANK<LIIC<24)  BYTE  EXTERNAL, 

TETP*BUP(24)  BYTE  EXTERNAL, 

SUV  BYTE  EXTERNAL. 

SUBIWEX  BYTE  EXTERNAL. 

SUBWOEtGRIO  ADDRESS  EXTERNAL, 

DNVKROUNOtSPEED  BYTE  EXTERNAL. 

DNWRANGE  BYTE  EXTERNAL. 

DNVITRACKtAHGLEtERRCR  BYTE  EXTERNAL, 

0NWBEAR1NG  BYTE  EXTERNAL. 

ONVITRACKfANGLE  BYTE  EXTERNAL, 

DW*CROSS»TRACX$AMGtf  BYTE  EXTERNAL. 

ONVtTIICtTOtGO  BYTE  EXTERNAL, 

DNWUIWtSPEEDll)  BYTE  EXTERNAL, 

BNWWND4DIR  BYTE  EXTERNAL. 

DNVtDESTINATIQN  BYTE  EXTERNAL. 

ONVtSTATUS  BYTE  EXTERNAL, 

DNWTERPtUAYPT  STRUCTURE) 

STATUS  BYTE, 

UTMSPHEROIO  BYTE, 

UmZ0C(2)  BYTE, 
umtl)  BYTE, 

LAT(B)  BYTE, 

U0NI7)  BYTE. 

HAGVAR(t)  BYTE)  EXTERNAL. 

DMWU6TIUAYPT4PTR  ADDRESS  EXTERNAL, 

ENVKXPTtOATA(lO)  $TRUCTURE(0IG1TS(68)  BYTE)  EXTERNAL. 
HMTCTtOATA(lO)  STRUCTURE(DIGITS(48)  BYTE)  EXTERNAL, 


PL/N-flO  aW>IL£R  ONV 
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(EJECT 

94  1  1NIT40NV:  TOQUE  PUBLICS 

55  2  DECLARE  [  BYTE. 

ZERO  BYTE  OATAIOIt 

96  2  DNWLASTWAYPTIPTR  «  .GNVKXPTtMTA!  /•  PRESENT  POSITION  •/ 

97  2  WWSTATUS  >  0? 

9B  2  DNVt DESTINATION  >  OS 

/•  CLEAR  AU  TARGETS  AND  OCCXPCINTS!  IE.  SET  UAYPT.STATUS  ■  0  •/ 

99  2  00  I  *  0  TO  9! 

60  3  CAa  PAa«iAYPT(I,.ZERO..INV»aCPT»MTAII))J 

61  3  CAU  PAdC(UAYPT(I..ZEROi.ttMTCT*DATA(I))? 

62  3  ODI 

63  2  DNVSMIWSPEEDIO)  «  '  'I 

66  2  CALL  N0!£(Z6,.0SMWINM  SPEED,  .DNV$WINWSPEED(1)>! 

/»  INiTSAUZE  VMIABLES  APPEARING  ON  NAV  STATUS  TABLEAU  •/ 

69  2  CALL  KJVE(4,.(/1635'')>.EW(RANGE)i 

66  2  CAU.  N0VES3,. ('I04')>.DNV$TRACK$ANGLE(£RROR)> 

67  2  CALL  IW€(3,.('273'),.CNV(E£5RING)i 

60  2  CALL  nOIC(3..(/205/)f.DNV(CROSS(7PACX(ANGLE)> 

69  2  CALLHtNEI3,.('200,)..CNV(TtlC$TO«OM 

/•  INITIALIZE  PRESENT  POSITION  #/ 

70  2  OMTENPMMYPT.STATUS  *  6$  /»  L/L  AND  UTN  DATA  AVAILABLE 

71  2  CALL  N0VEU3..('N341I2«118354'I..I)W*TEIH«AYPT.LA7}; 

72  2  OHV(TBf»HAYPT.UT«SPI€ROID  »  11 

73  2  CALL  KKCU3.  .r01ABC12345o78'')i  •ONVITEJf’MAYPT.I/TOZOAE)! 

74  2  CALL  PACKWAYPTOA.  .DNVtTEJWHAYPT,  .DMCKPTSOATA)!  /•  STORE  INTO  ttPTIO)  •/ 

79  2  MN  /*  OF  INITMMV  */ 


76  1  DI9PlimACTTWMAYPT<  PROCEDURE  PUBUCS 

77  2  BEOARE  IIAYPT(0ESCRIPT0R(2)  STRUCTUR£(TEXT<4)  BYTE)  DATAt'OtPT  TGT'M 

71  2  SECURE  I  BYTE! 

79  2  CAU  CLEARtTEIPlEUF! 

IB  2  CALL  H0VEI4. .HAYPT$DESCRIPTOR (OWWESTINATION  AND  l)..TBF(BUr» 

SI  2  T0f*BUF(5)  *  (SKKSNVIDESTINATKNill  AND  OFH)  +  30HI 

B  2  CALL  UPBAISILIttIO,  18,4,. TENMBUF); 

S3  2  B9N  /•  OF  BISPUYMCTItCWAYPT  t/ 


M  1  OISPLAIY  (PRESENT  (POSITION!  PROCEDUREIROH)  PUBLIC! 

K  2  DECLARE  RON  BYTES 

•6  2  CALL  CLEARITEJWBLF! 

87  2  CALL  UffACMJiAYFTl34..DNV(CKPT(0ATA(0I..DNV(TEIWNAYPTIS 

88  2  CAU.  FORMTWAYPTKOORDI.IMVLTEIPWAYPT)! 

89  2  UNPWUFIOI.TEJIPIBUFIU  «  'P'S 

90  2  CALL  UP0ATE(LISElR0U,0.I4,.TEJf>*BJF)! 

91  2  BCS 


3§?3i 
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CJECT 

92  1  0M9MK)  PROCEDURE  PlRICI 

93  2  DECLARE  DMWSUBHODEITAELEAU!*)  BYTE  OATA! 

AOUO. 'ONV', 

A0U3,'  FLV'.CCLS.'Cm  BfUF  NAV', 

R0U4,'  T0'.CQLI2.'NAV  STAT', 

ROW,'  WYT'.COLIS.  'CKPT'. 

now,'  ttPT'.ctu.'tmr,cou2.'L/L  stat', 

R0U7,'  TCT'.Ca7,''.P'.DXll.  TEST  TGT'. 

ROM.au.  'DATE'. 0X14, 'STAT'  ,0)  1 

94  2  DECLARE  ONVtSWtCNAAf  STRUCTURE! 

SUtflASK(7)  BYTE. 

SU4VALUE<9>  BYTE)  DATA! 

O.O.OAEH.OEEH.OAEH. 1SH.0. 

01H.23H. 34H, 45H.67H. 78H, 9AH, OBBH.OCOH)  5 

95  2  DECLARE  DNV4IC8  STRUCTURE! 

RODE  BYTE.  NUMCH  BYTE.  DELRSCH  BYTE.  DEUHHASK  ADDRESS. 
ECH04R0M  BYTE.  ECH04C0L  BYTE.  SUSENABlE  ADDRESS)  DATA! 
SWITCH, 0,0. 0.0,0..DNVJStrtENABLE); 


%  2  DMNAVISTATUS:  PROCEDURE; 

97  3  DECLARE  STATUS4TAELEAU!*)  BYTE  DATA! 

ROW. 'OW'.COL?, 'STATUS', 

ROM.  'RGE'.C0L9.  'GSPD'  .C0L17. 'TKE' . 

ROUS, 'BR6' .C0L9. 'TRK' . C0L17. 'ITKE' , 

ROW, 'TT6',OOL?, 'WIND', CXU.'/'.O)! 
ft  3  DECLARE  MTASAD0I9)  ADDRESS  DATA! 

•OMWVMGE, 

•OWKWUWSPEED, 

.mnmcxvmstmoR, 

.DNV4 BEARING. 

.DNVfTRAOCtANGLE. 

.ONWCROSStTRACKtAMU. 

•BWTIfC*TO*GO. 

.mvwnotsPEED. 

.OMUINDtOIR); 

99  3  DECLARE  NCHARI9)  BYTE  DATAI4.3.3, 3,3, 3.3.2, 3)» 

/*  THE  FOLLOW  NG  ARE  TVS  LEFT  BYTES  OF  T*  INSERT  MASK  */ 
too  3  DECLARE  HS8*INSERTH1ASK(9)  BYTE  DATAaOH,0,0,0.0,20H,0,0,OI; 

101  3  DECLARE  BASK  ADDRESS. 

RASKtOTffRLAY(2)  BYTE  ATI. MASK); 

102  3  DECLARE  OESTKOC(9)  ACTRESS  DATA! 

,TDf»DUF+3, .  TEMP4BUFM3,  .TEHP4BUF+20, 

,TDP»8UF*3, .  TEHF4HJF+I2, .  TERP4BUF+20, 

•TEJftBUF»3, .  IErF*BUFtl7. .  TEJWBUFM3) ; 

103  3  DECLARE  U.J.II)  BYTE) 


3  CALL  d£AR(2)f 

3  CALI  DISPLAYI.STATUS4TAELEAU)! 

3  CALL  DISPlAY4PPEi£NT4POSlTtOH!2M 

3  HASKtOWEFLAY(O)  >  01 

3  00  I  ■  0  TO  21 
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IOP  4 

110  4 

111  9 

112  9 

113  9 

114  9 
119  4 

116  4 

117  3 

lit  3 


CALL  CLEMNTCmiF) 

DO  J  »  0  TO  25 
I*  *  1«3  ♦  Jt 

MSMQMERLAYIl)  «  *8*!*3!T*M3r(mt 
OU  HB£RT(NCMfiR(H)<WTAJOlll)»3EST4LOC(Illt 
'.'.KWINSERTirAiXMDJJ 

BDl 

CALL  UPDATE4LIAE(I*2*4»0i24.  .TOT4BJF)! 

OBI 

CAU.  AEAD(.SUW0tE*IC9M  /«  WAIT  FOR  SU9H0GE  SU  ENTRY  •/ 
BBt  /•OP  JNWNAWSTAT  •/ 


B53S85S53S5S52  8582888*2225 
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IEJECT 

/•  KC1N  DNV  SUBWC  •/ 

2  00  FOREVER: 

3  CALL  CLEARIO)! 

3  CALL  UPMTEN.  INEU .  0. 3. .  OFFfSfiiTEIT  ( $*! ! BMSTATUS.  4 >  >  >  I 

3  QU  OUOl.SUSftJKItflDK 

3  CALL  DISPLAY!. WAISLENCDEITMLEAUIl 

3  CALL  0ISPlAY4ACTIV£*«»PT! 

3  CALL  DISPLAYIF®ESC(TiPCSITKK{2)I 

3  CALL  AEADl.DNVtlCBlS 

3  00  CASE  SKMICCr. 

4  CALL  DNVtPlYITO! 

4  OKU  ONVtCmt 

4  CALL  ONVttACiaJMm 

4  CALL  ONVtNAVtSTATUS; 

4  MVUESTJNATICN  ■  IDNVIDESTINATION  AM)  1)  OR 

$H.((Stf?(ONV*  DESTINATIONS)  ♦  J)  HOD  10.1)1 
4  0NV4STATU5  *  ONVttTATUS  OR  I!  /*  UW  •/ 

4  OHWSTAIUS  ■  ONVt STATUS  NO  OPEN!  /«  L/L  */ 

4  CAU  0NVMMYPT93TATUS(CKPT)  t  /»  OPT  STATUS  •/ 

4  CALL  MfflGTt 

4  CALL  ONWUWEt 

4  t  /•  DNV  TEST  ♦/ 

4  CALL  ONVtUAYPTtSTATUStTGT))  /*  TGT  STATUS  */ 

4  WWSTATUS  >  BWSTATUS  AND  0EFH1  /•  Off  #/ 

4  0NV4STATUS  «  0NVSSTATU3  OR  ICHi  /»  ON  •/ 

4  EUR  /•  OF  DO  CASE  »/ 

3  BOl  /•  GF  DO  FOREVER  #/ 

2  BDl  /•  OF  ONVtSUSnOOE  •/ 

14S  1  Bn  /t  OF  W  •/ 


NODULE  OWRHATKK* 

CODE  AKA  SIZE  ■  0464H  11240 

WRIAHE  AREA  SIZE  ■  0003H  SO 
IWDU1  STACK  SIZE  «  OOOAH  100 

SIS  LH€S  READ 
A  FROGRAH  EWOR(S) 

BB  OF  FL/N-00  COWILATION 


Jb- 
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ISIS- 1 1  PL/«-?9  V3.0  CCTPILATION  Of  flCIU-E  DNV1 
OBJECT  amt  fLA.'EO  IN  :fl:Gf.VI.C5J 

corf  ILER  INVOKED  BY:  PLflSO  :F|:Dr<Vt.»C  0ATE(9fW7V)  DEBUG 


*TITl£<'ONVl') 

/•  DNWOPT,  DIWITGT,  ONVVLYITO  ♦/ 

I  GNVts  cm 

MGLIST  I«aUDECfl:CCaiT.SPC> 

♦  1  OW.ICOORCIOATAIENTRY:  PRCCEIi'ElWYPTIPTO.UAYPTITYPE)  BYTE  EXTERNAL! 

3  2  OECLARE  MYPTtPTR  ADDRESS.  MYPTITYPE  BYTE: 

A  2  EMU 

7  1  CLEAR:  PROCEDURE ( STARTIROU)  EXTERNAL: 

•  2  DECLARE  STARTIROU  BYTE! 

9  2  EWi 

10  1  GRID:  PROCEDURE(POINTER)  EXTERNAL: 

II  2  DECLARE  POINTER  ADDRESS: 

12  2  EM): 

13  1  DISPLAY:  PROCEDURE!  INtPTR)  EXTERNAL: 

14  2  DECLARE  1NIPTR  ADDRESS: 

13  2  EM): 

14  1  OlSPLAYtOMTtKB:  PROCEDURE  EXTERNAL: 

17  2  EM): 

18  1  READ:  PROCEDURE!  ICBIPTR)  EXTERNAL; 

19  2  DECLARE  ICBIPTR  ADDRESS: 

20  2  END: 

21  1  UPDATER. INS:  PRCCEDUREIROU.m.NCWW.TEXTIPTB)  EXTERNAL: 

22  2  DECLARE  (ROU.COL.NCMR)  BYTE.  TEXTIPTR  ADDRESS; 

23  2  EM): 

24  1  ERROR:  PROCEDURE(CODE)  EXTERNAL) 

25  2  DECLARE  CODE  BYTE: 

21  2  ENO: 

27  1  PACKWAYPT:  PROCEDURE  ( NBYTES,  SOJRCEIPTR .  DESTIPTR )  EXTERNAL) 

2B  2  DECLARE  NBYTES  BYTE.  (SOIRCEIPTR, DESTIPTR)  ADDRESS: 

29  2  END) 

30  1  UNPACKIUAYPT:  PROCEDUREINBYTES.SOURCEIPTR, DESTIPTR)  EXTERNAL; 

31  2  DECLARE  NBYTES  BYTE.  (SOURCEIPTR, DESTIPTR)  ADDRESS: 

32  2  EM)I 

/#  EXTERNAL  VARIABLES  */ 

33  t  DECLARE 

BUNKSLINE<24>  BYTE  EXTERNAL. 

SUV  BYTE  EXTERNAL, 

SU9INDEX  BYTE  EXTERNAL, 

OATAIENTERED  BYTE  EXTERNAL, 

IMBUP(I)  BYTE  EXTERNAL, 

SINCLEIDIOITIiCB  ATPEiS  EXTERNAL, 

suenoPEicRiD  byte  external, 

SUBISLEWPEIORID  BYTE  EXTERNAL. 

S18H0DEISU1ENABLE  BYTE  OTERNAL, 

ONVITEfflUAYPT  STRUCTURE! 

STATUS  BYTE, 

UTNI 14)  BY  IE. 

LATI4)  BYTE, 

UMI7)  BYTE. 


Pl/N-80  CORILER  0NV1 
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WWWRI4I  8VTE)  EtTEftMl. 

WWOESTIHSTICR  BYTE  EtTtXSflL, 
dnwlastwayftlptr  kieecs  extef?.'-l. 

DNV$C*PT*UTAUO>  STfXIfEiDIGlTSlJiaJ  BYTE!  EITESNALt 
DNV4TGT4DATAU0)  STRUCTURE  iWCITSltS)  BYTE)  EXTERNAL! 


34  I  DNVtCXPT:  PROCEDURE  PUBLIC! 

35  2  DECLARE  CKPT«TABL£»U<*)  BYTE  OATA( 

RWC.'CKPT". 

ROC.CCU.'CKPT'.O)! 

34  2  DECLARE  CKPTJNU1  BYTE; 


37  2 
3B  2 
»  2 

40  2 

41  2 

43  2 
45  3 

44  3 
40  3 
49  3 
39  3 
31  2 


CALL  CLEAR(2)1 
CALL  DISPLAY4DIGITLKE! 

CALL  DISPLAY  I. CKPT*TABLEAU>S 
CALL  READ<.SIN0L£»I0IT$IC8>! 

IF  SHV  *  mrCXi'M  T «N  RETURN; 

IF  DATA4ENTE3RED  THEN  CO! 

CKPT4IM1  *  IMBUF(O)  ~  30H! 

IF  DKWCOOfiDJMTAtEJITRY ! .0NV4TEPP4UAYPT >  CKPT)  *  0  THEN  RETURN! 
CALL  PACWUAYPT  (34, .  BNVSTEP.PWAYPT , .  DNV1CKPT*DATA(CKPT$MI1) ) ; 
DNWLASTWAYPTSPTR  =>  .DNVttXPTtDATACCXPTWUI); 

EM)! 

END!  /*  OF  DNWCXPT  »/ 


/»  SUBMODE  RETURN  »/ 


*3283;g$$a3l5  2  8  3J  St  3  »  CA  2  a  a  3  85  *  S  C  fcS  8  «  8  3* 
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SE.CCT 

52  i  dnvstgt;  pruxerfe  public; 

53  2  DECLARE  TGTSTABLEAUt*)  BYTE  DATA) 

RCVJ2,'  TGT'i 
Ri«4, '  FP.1E' , 

ftan,'  tct'.o); 

54  2  DECLARE  FRIESSUEttE'ESSSaEHABLE  STRUCTURE! 

SNSNASXI7)  BYTE. 

SUSVALUEID  BYTE)  DATA( 

0.0. BOH. O.O.O. 80H> 

OlH)! 

55  2  DECLARE  TGTSICB  STRUCTURE ( 

WOE  BYTE.  NUTOCH  BYTE,  CELHSCH  BYTE.  DELHSPASK  ADDRESS. 
ECHOSROW  BYTE.  ROWICOL  BYTE,  SHiOiABLE  ADDRESS)  DATAt 
DIGIT.  1,0.0, 2.5.  .FRZESSUBNODESSNSENABLE)  i 

2  DECLARE  FR2E*TAB( *)  BYTE  DATA(ftOW2. 'FRZE ' ,0> i 
2  DECLARE  TGTSIC82  STRUCTURE! 

WOE  BYTE.  NUNSCH  BYTE,  DELHSCH  BYTE,  DELMflASK  ADCKESS, 
ECHOSROW  BYTE.  ECHOtCOL  BYTE,  SUSENADLE  ADDRESS)  DATAt 
DIGIT,  1,0, 0, 2,5.  .SUBWOESSUSENARE) ! 

2  DECLARE  TGTtNUH  BYTE,  « 

I  BYTE; 

2  DECLARE  FRZESSW  LITERALLY  '20Q'S 


2  A: 

CALL  CLEAR(2); 

2  CALL  OISPLAYtDIGITIKB; 

2  CALL  DISPLAY!. TGTiTABLEAU); 

2  CALL  READ!. TGTSICB); 

2  IF  SUV  *  SUBWOESSN  TVEN  RETURN! 

2  IF  SUV  «  FRZESSU  TKN  GO  TO  B; 

2  IF  DATASENTERED  THEN  DO; 

3  TGTSNUH  =■  INSBUR(O)  -  30H; 

3  IF  DNVSCOORDSDATASENTRY  ( .  ONVSTEJWUAYPT ,  TGT)  *  0  TWN  RETURN!  /#  SUBWDE  RETURN  */ 

3  CALL  PACKSUAYPTI34, . DNVSTEJ'PS  UAYPT , . DNVSTGTSBATA t TGTSNW ) )! 

3  ONVSLASTSHAYPTSPTR  »  .DNVSTGTSOATA(TGTSNUH); 

3  RETURN; 

3  END! 

2  ELSE  DO! 

3  CALL  ERRCR(O); 

3  GO  TO  A; 

3  EM)! 

2  Bs 

/*  FKE  SWITCH  PRESSED,  RECORD  PRESENT  POSITION.  »/ 

CALL  DISPLAY!. FP.ZESTAB); 

2  CALI  READt.TGTSICBZ); 

2  IF  SUV  «  SUBWDE4SV  THEN  PETIRN; 

2  IF  SUV  *  ENTERSSH  THEN  00! 

3  IF  DATASENTERED  T)€N  TGTSNUH  =  INSBLF(O)  -  30H; 

3  OSE  DO! 

«  DO  TGTSWH  *  6  TO  9! 

5  CALL  WFACXSWAYPT ( I , . DNVSTGTSDATA! TGTSNUH) , .  DWSTEWSUAYPT1 ; 

5  IF  (0NVSTENPSNAYP7. STAR'S  AND  4)  -  0  Tr£N  00  7G  C; 

5  EWt 

4  CALL  EFROR(l);  /•  NO  UNALLOCATED  TARGETS  t/ 

4  GO  TO  A; 
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n  4  0©i  /#  of  ast  oo  ♦/ 

M3  C: 

/♦  COPY  PRESENT  POSITION  TO  OE'IGNATEi  TAPCCT  #/ 

CALL  lfPACKWAYPT(34. . DNVtOPTCATAIOI . . CWJTETPWAYP7I* 

3  CALL  PAO:*WAYPT(34,.G.;*TElP$Wi»PT,.IlNV«TGTtWTA(TCi*«LI1»! 

3  BO! 

/*  DISPLAY  COORDINATES  OF  TARGET  AND  TARGET  (WIDER  */ 


101  2  END;  /•  OF  DNV4TGT  »/ 


Pl/N-80  COflLER  BW1 


JfjfCT 

102  1  CNV*aW0:  PROCETUiE  PUBLIC! 

103  2  DECLARE  FLY*T0*TA21EAU(*>  BYTE  DATA! 

RW3,'  FLY', 

RGU4, '  TO'.OI! 

104  2  DECLARE  TYFE<2>  $TPUCTUR£!CH(7>  BYTE)  DATA! 

ROB.OU.'CKPT'.O, 

R0H7,CCU.'  TGT'.O)! 

106  2  DECLARE  TOT(*)  BYTE  DATA1R0C,'  TO', 01? 

106  2  DECLARE  FLY*TO*EVci£  STRUCTURE! 

SW*ttASX(7)  BYTE. 

SUWALUEU)  BYTE)  DATA! 

0,0.20H.0.8CH,0,8CH,  /*OPT.TGT,SUBH3DE  */ 

01H.20H)? 

107  2  DECLARE  flYSTWICB  STRUCTURE! 

HUE  BYTE,  NLD14CH  BYTE,  DEUHCH  BYTE,  DEUWW3K  ADDRESS, 
ECHOtROU  BYTE.  ECHGSCOL  BYTE,  SUSOiABLE  ADDRESS)  DATA! 
SUITCH,0,0,0,0,0,.FlYtTO(ENABL£); 


10B 

2 

CALL  CLEARI2)! 

109 

2 

OU  DISPLAY!  .FLY*TO*TABL£AU>! 

110 

2 

CALL  DISPLAY!. TYPE(O))! 

111 

2 

CALL  DISPLAYl.TYPEU))! 

112 

2 

CALL  GRID! . SUE$3UK-CDe»GR I C ) ! 

113 

2 

CALL  READl.FLYSTMICB)! 

114 

2 

IF  SUV  *  SUBFUDE43U  THEN  RETURN; 

116 

2 

DMDEST I NATION  *  SMINDEX! 

117 

2 

CALL  CLEAR! 2)! 

118 

2 

CALL  DISPLAY!. TOT); 

119 

2 

CAa  DISPLAY!. FLYITMTABLEAU)? 

120 

2 

CALL  DISPLAY!.TYPE(SU*INDEX))1 

121 

2 

CAa  DISPLAY5DIGITSKB; 

122 

2 

CAa  READ!.SIf«GL£*DIGIT*ICB)i 

123 

2 

IF  DATA4ENTEPED  AND  (SHV  *  ENTEWSW)  THEN 

124 

2 

UIWMESTINATICN  *  ONVt DESTINATION  OR  SK.(IMBUF<0)- 

123 

2 

END?  /»  OF  DNV4FLY4T0  »/ 

136 

1 

EMM  /»  OF  DNV1  •/ 

NODULE  I (FORMATION: 

CODE  AREA  SIZE  >  02&3H  6110 

VARIABLE  AREA  SHE  =  0003H  30 

HAXIHUN  STACK  S12E  *  0004H  4D 

243  LINES  READ 
0  PROGRAM  ERRCR(S) 


EM)  OF  PL/M- 90  COMPILATION 


PL/H-80  COMPILER 


0NV2 


I2MR79  PAGE  1 


ISIS-II  PL/H-00  V3.0  COFILATION  OF  POOUIE  DNV2 
OBJECT  NCGUE  PLACED  IN  :FI:0NV2.0W 

COMPILER  I  WOE)  BY:  PtK»  :R1:0NV2.SRC  DATEU2MAR79)  DEBUG 


»TITLE('DNV2') 

/•  OISPLAYWAYPTYTYPE.  LAT»LON»OATA*ENTRY,  MAGVAR40ATA4ENTRY •  ONV*COORO*OATA*£NTRY  */ 
1  DM2:  DO; 

MOLIST  IMCLUICCFDCCUIT.SRC) 

4  1  CLEAR:  PROCEDUREISTARTlROtl)  EXTERNAL: 

5  2  DECLARE  STARTtROU  BYTE; 

4  2  EM): 

7  t  ERROR  :  PROCEDURE (CODE)  EXTERNAL: 

I  2  DECLARE  CODE  BYTE: 

9  2  SO> 

10  1  GRID:  PROCEDURE (POINTER)  EXTERNAL: 

II  2  DECLARE  POINTER  ADDRESS; 

12  2  END; 

13  1  DISPLAY:  PROCEDURE! INSPTR)  EXTERNAL; 

1«  2  DECLARE  INIPTR  ADDRESS; 

15  2  END; 

It  1  READ:  PROCEDURE!  ICBYPTK I  EXTERNAL; 

17  2  DECLARE  IC84P7R  ADDRESS; 

18  2  END: 

IP  1  UPDATEtLIlE:  PROCEDURE(ROU.CDL>NCHAR.TEXT*PTR)  EXTERNAL: 

20  2  DECLARE  (ROW-COL.NCHAfi)  BYTE.  TEXTIPTR  ADDRESS; 

21  2  END; 

22  1  UHIT4TEST:  PROCEDUREtBLFYPTRiNCHAR.HINSPTR.flAXYPTR)  BYTE  EXTERNAL; 

23  2  DECLARE  NCHAR  BYTE.  (8UFYPTR.MINJPTR.MAX4PTR)  ADDRESS; 

24  2  END; 

25  1  INSERT:  PROCEDURE(NCHAR>SOURCE4PTR.DEST*PTR.OELNICH.OELNtNASK)  EXTERNAL: 

26  2  DECLARE  (NCHAR.OEUNCH)  BYTE.  (SOURCOPTR,  DESTFPTR. DEUWKSK)  ADDRESS; 

27  2  EM); 

28  1  UMWKWAYPT:  PR0CEDUR£<N5YTES.S0URCE*PTR,DEST*PTR)  EXTERNAL; 

27  2  DECLARE  NBYTE5  BYTE.(SOLRCE*PTR.OESTJPTR)  ADDRESS; 

30  2  EM); 

31  1  DNVWIHSDATAYENTRY:  PROCEDURE(HAYPT»ADD.HAYPT»TYPE)  BYTE  EXTERNAL; 

32  2  DECLARE  UAYPT4AD0  ADDRESS.  UAYPTITYPE  BYTE; 

33  2  EMU 

/•  EXTERNAL  VARIABLES  */ 

34  1  DECLARE 

OFFtOMTEXT(t)  BYTE  STERNAL. 

RANKtLINE(24)  BYTE  STERNAL. 

SUV  BYTE  STERNAL, 

SUtlfSa  BYTE  STERNAL. 

0ATAYENTERED  BYTE  EXTERNAL, 

1N48UFU)  BYTE  EXTERNAL, 

2ER0U)  BYTE  BTERJKL, 

SUBMCDEtGRID  ADEffSS  EXTERNAL, 

SUGKKEtSUtENABLE  ADTRFSS  EXTERNAL. 

SU8N0DE*$TEP*3rtENABU  ADDRESS  EXTERNAL, 

BMLAST4WAYPTYPTR  ADDRESS  EXTERNAL. 

OIGITtKBKRIO  BYTE  EXTERNAL. 

DIGITtRBYTABLEAU  BYTE  STERNAL) 


ssaaasttgSBP 
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DECLARE  WAYPTIPTR  AKRESS: 

/•  UPAttED  WAYPOINT  DATA  STRUCTURE  */ 

DECLARE  UAYPT  BASED  WAYPTIPTR  STRUCTURE! 

STATUS  BYTE, 

UIM3PHER0ID  BYTE, 

UTWZOtfU)  BYTE, 

UTmPW!3)  BYTE, 

UTMVALUE<8)  BYTE. 

LATI4)  BYTE, 

L0NI7)  BYTE, 

HAGVMI6)  BYTEII 

/•  PACKED  WAYPOINT  DATA  STRUCTURE. 

MOTE!  THIS  DATA  OVERLAYS  RflHJFB.  »/ 

DECLARE  LASTtUAYPT  BASED  OWHASTWAYPTIPTR  STRUCTURE! 
STATUSI2)  BYTE, 
uni(28)  BYTE. 

U(26>  BYTE. 

MACWRU2)  BYTE)! 


DISPLAY$UAYPT*TYPE!  PROCEDURE(TYPE)  PUBLIC; 

DECLARE  TYPE  BYTE, 

I  BYTE; 

/•  TYPE  FORMAT! 

1ITO!  0  -  CKPT,  1  -  TGT, 

inn  o  -  la.  i  -  imi  #/ 

DECLARE  *>T*flQW!2l  BYTE  0ATAT4.6I, 

WT4C0L!2)  BYTE  DATA<4.2); 

DECLARE  WPT«TEXT(2I  STRUCnJR£(CH(4l  BYTE)  OATAT'OtPTTOT  '); 
DECLARE  COORDtTEXT(21  STRUCTURE!CH<3)  BYTE)  DATAt'UTJt/L'), 
COORD$Cai2)  BYTE  DATAI&.L2); 


I  *  TYPE  AMO  U 

CALL  (JPDATE$LINE(MPT$R0U(I),MPT4CQL(I),4,.WPTtTELT(I)); 
1  •  SHHTYPE.1)  AND  1? 

CALL  UPOATEtLUC(4>COORDtCX(I),3i.COORO>TEXT<I))S 

BDt 
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«JECT 

48  I  DECLARE  L/»T*TAELEAU(«)  BYTE  DATA( 

AOUl, 'ENTER  LATITUDE'. 

NM2,C0Lt9,'N', 

ROU6.COUVS'. 

MUB.COLIS.'C'.CGUS.'E'.O)*. 

49  1  DECLARE  LATtDIRtICB  STRUCTURE! 

KXC  BYTE.  NUHtCH  BYTE.  DELMCH  BYTE,  DELrtSfWSK  ADDRESS. 
ECHOtROU  BYTE.  ECHCtCOL  BYTE,  SUtENAELE  ADCFESSI  DATAT 
WRTHISOUTH.J,0.0.2.0..SLiE,^£€lSItPS»*£ftta£)/ 

30  1  DECLARE  UATiVALtlCB  STRUCTURE ( 

NODE  BYTE.  NUNtCH  BYTE,  DELMCH  BYTE.  OELfltflASK  ADDRESS. 
ECHOtROU  BYTE.  ECHCJOX  BYTE . SWtENABLE  ADDRESS)  DATA! 
DIGIT, 5.'  'i2800H.2.2,.SUBMODEtSTEMSWtENABL£)i 
SI  1  DECLARE  LCNtTABLEAUU)  BYTE  DATA! 

ROUt ,C0L6, 'LONGITUDE' . 

RIM4.C0L16. 'E' .CQL22. 'U' . 

ROH8,COll&,'C',COL22.'£'<0)> 

32  1  DECLARE  LONtDlRtlCB  STRUCTURE t 

NODE  BYTE,  NUWCH  BYTE,  CEU18CH  BYTE,  OEUtHASX  ADDRESS, 
ECHOtROU  BYTE,  ECHOtCO.  BYTE,  SUtENABLE  ADDRESS)  DATA! 
EASTtHEST,  1 . 0, 0, 2 . 0 , .  SUE.YCDEtSTEPtSW  tENABLE )  ? 

SB  1  DECLARE  LONtVALtICB  STRUCTURE! 

IOOE  BYTE,  NUWCH  BYTE.  LELfltCH  BYTE,  DEUtMASK  ADDRESS, 
ECHOtROU  BYTE,  ECHOtCOL  BYTE.  SK5ENABLE  ADDRESS)  DATA! 
DIGIT, 6,'  ' .  1 400H ,2,1.. SUEHODEtSTEPtSWtENABLE ) ) 

34  I  DECLARE  LATtdAN*)  BYTE  DATA('900'), 

LONtmtl*)  BYTE  0ATA('180')t 


33  I  GETIOATA:  PROCEDURE  I  CHTLtPTR ,  DATAtPTR,  DATfttTYPE .  UAYPTtTYPE)  T 
/*  READ  LAT  OR  LON  DIRECTION  AND  VALUE  ENTRIES.  •/ 

SB  2  DECLARE  CNJLtPTR  ADDRESS, 

DATAtPTR  ADDRESS, 

DATATYPE  BYTE,  /»  0  -  LAT,  1  -  LON  */ 

UAYPTtTYPE  BYTE; 

3/  2  DECLARE  (OAT  BASED  DATAtPTR)  (1)  BYTE! 

SB  2  DECLARE  CNTL  BASED  CNTLtPTR  STRUCTURE! 

IMItADO  ADDRESS, 

TABtADO  ADDRESS, 

DIRtICBtADD  ADDRESS, 

UALIICWADD  ADDRESS)! 

39  2  DECLARE  ETAB<*>  BYTE  OATA(RCU2,Ca4,IEG$SYn,CCl7,,.',COl9.'"',0)( 

M2  CALL  OEAR(2)i 

41  2  CALL  DISPLAYtUAYPTITYPE ( UAYPTtTYPE ) i 

42  2  CALL  GRIDt.DIClTtKSiGRID); 

43  2  CALL  DISPLAYtCNTL.  TABtADD)  * 

44  2  A« 

CALL  REAO(CNTL.DIR4!CB4ADD);  /»  DIRECTION  ♦/ 

45  2  IF  (SW  »  SUBWOEtSW)  OR  (SUV  «  STEPtSU)  THEN  RETURN! 

*7  2  IF  NOT  OATAIENTERED  TJEN  GO  TO  A;  /#  REJECT  <ENTER>  NOT  PRECEEDED  BY  DATA  V 

49  2  OAT(O)  >  iNtBLF(O); 

TO  2  CALL  (JP0ATEtU)C(2.0,I..INtE*JF),'  /#  PUT  DIR  BACK  ON  T*  DISPLAY  »/ 

71  2  CALL  DISPLAY!.  DIGITtLBtTABUEAU); 

72  2  CALL  DISPLAY!. ETAB)! 

/#  ItfUT  DEGREES  VALUE  */ 
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73  2 

74  2 
74  2 

78  2 

79  2 
»  2 

81  3 

82  3 

83  3 

84  2 


88  1 
84  2 

87  2 


88  2 
8?  2 
90  2 
92  2 

94  2 

95  2 
97  2 

99  2 

100  2 
101  2 


85 

CAU.  R£AP(CNTl.V«.*ICB»AOD>: 

IF  (SUV  =  SUEfttiDEiSW)  0 ft  (SUV  *  STEPFSU)  TIEN  RETURN! 

IF  MOT  DATAtENTERED  TIEN  GO  TO  8! 

IF  UmT»TEST(.IN5=.F,:*CHTi;»TYf€..ZER0.Dm..l«SMD0)  AND 
LIHITtTEST ( ,  IHIEtJF  ( ;*GATAiTYP£ ) .  3% .  ZERO.  .LATFflAX)  T)£N 
CALL  NOVElVDATA»T>FE,.IN»»JF.OATA«,TR*l)i 
ELSE  DO; 

CAU  ERRORIOM  /♦  INVALID  ENTRY  */ 

CO  ID  8$ 

END! 

EMI  /•  OF  GETIOATA  M 


LAT4L0N4DATA4ENTRY!  PROC£Dt*E(HAYPT4A0D.UAYPT$TYPE)  BYTE) 
DECLARE  UAYPTtADO  ADDRESS. 

MWPrtTYPE  ADDRESS!  /*  0  -  OPT.  1  -  TOT  »/ 

DECLARE  CNTLI2)  STRUCTURE! 

NUtADO  ADDRESS, 

TAB4AD0  ADDRESS. 

OIWIC8FAOO  ADDRESS. 

OECtlCBSADD  ADDRESS)  DATA! 

.LAT4HAX.  .IAT4TABLEAU.  .LAT40IMIC8.  .LATIVALIIC8, 
.UMHAX>.LMtTABL£AU..ljQNtO!R$IC8i.lON$VAL$lC8)> 


HAYPT4PTR  »  HAYPTFADD! 

CAU  OETF0ATAf.CNTL(O)».NAYPT.LAT.O.UAYPTFTYPE)l 
IF  SUV  *  SUBNOOEFSU  TIEN  RETURNIO). 

IF  SUV  *  STEP4SM  TIEN  fl£TUW80H)i 

CALL  GET*OATA(.CNTL(1)..UAVPT.LON.I.HAYPT47YPE)! 
IF  SUV  *  SUBMODEFSU  THEN  RET\JRN(0)i 
IF  SUV  »  STEPFSU  TIEN  RETURN(80H>I 
MAYPT.STATUS  «  MAYPT. STATUS  OR  4! 

AETURNU);  /♦  NORMAL  RETGRN  ♦/ 

END!  /i  OF  LATFLONFDATAFENTRY  t/ 
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♦EJECT 

102  1  IWGVAMDATAJENTRY:  PFC'^DUF£(«AYPT»ADO.IIAYPT»TYPE)  BYTES 

103  2  DEOAPE  UAYPTSA00  ADDRESS. 

MAYPT4TYPE  BYTES 

104  2  secure  macvwitableaui*)  byte  data< 

mi. 'ENTER  MG  VAR'. 
mS.COLlOi  'E'.C0L22. 
ms.cau.'C'.cas,  E'.ois 
kb  2  secure  cntl  structure! 

NMSAtC  ACWESS. 

TABSADO  ADDRESS. 

•HKKKAOO  ADDRESS. 

VALMCWADO  ADDRESS)  0ATA(.UlTtl1AX..IM0VAMTAEL£AU..L0NIDlR$lCB..U)TtVAL«tC8)t 


104  2  WYPTtPTR  «  HAYPTSAOOl 

107  2  wu.  CLEAR!  1); 

100  2  CAL.  DISPLAYWAYPTtTYPE  ( UAYPT4TYPE ) I 

10»  2  CALL  GRID!. DIGIT**! ICSID) J 

110  2  CALL  DISPLAY!. NAGVAStTASLEAU) t 

111  2  CAU.  GET»DATA!.CNTL..iiA»PT.ftMVAR,0.«AYPT*TYPE)! 

112  2  IF  SW  «  SUEMODEISW  THEN  KETIRNIOM 

114  2  IF  SW  «  STEP4SU  T)£N  RETURN  1 20H  >  S 

tit  2  HAYPT.STATUS  -  UAYPT. STATUS  OR  81 

117  2  RETURN! 1)1 

110  2  EHM  /» OF  NAGVARtDATAtENTRY  »/ 


# 


555555  2 2  555855585 5555855 
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CJECT 

UP  1  IWVIC0CRD1CAT AIENTRYi  FROCETUREIWYPTIADD.WAYPTITYPE)  BYTE  PUELIC! 

129  2  DECLARE  WBYPTIAPO  ADDFESS.  /«  MUST  POINT  TO  AN  (.(PACKED  WAYPOINT  DATA  BLOCK  */ 

WAYPTITYPE  BYTE;  /*  SEE  PISfLAYIWAYPTITYPE  FOR  FORMAT  CESCIRPTION#/ 

121  2  DECLARE  COttDITAtLEAUIt)  BVTE  DATA! 

ROW. 'SELECT  COORDINATE  SYSTEM', 

RON4.COL4. 'imi'.cai:.  l/l'.o); 

122  2  DECLARE  COORDtSWENABLE  STWXTTJFf  ( 

SUIHASX17)  BYTE, 

SUIVAL(JE(2)  BYTE)  0ATA( 

0,0,0.23HiO,0,8SH, 

01H.20H); 

123  2  DECLARE  COORMICB  STRUCTURE! 

HOCE  BYTE,  NLWCH  BYTE,  DEU14CH  BYTE,  OELHINASK  ADDRESS, 

EOOttON  BYTE,  ECHOSCOL  BYTE.  SWIENABLE  ADDRESS)  DATA! 

SWITCH, 0, 0, 0, 0, 0, ,  COCRDISWIENABLE ) ! 

124  2  DECLARE  RETIFLAG  BYTE; 


2 
2 
2 
2 
2 
2 

/t  III  EACH  OF  T*  ABOVE  DATA  ENTRY  PROCEDURES  THE  STEP  SWITCH  IS  ENABLED 
AT  CERTAIN  POINTS,  WHICH  IF  PRESSED  SIGNIFIES  THAT  DATA  FROM  AN  EARLIER 
OR  PREVIOUS  WAYPOINT  IS  TO  BE  COPIED  INTO  THE  ONE  CURRENTLY  UNDER 
CONSIDERATION,  THUS  SAVING  THE  OPERATOR  A  FEW  KEYSTROKES. 

DC  FORMAT  OF  THE  RETURN  FLAG  IS: 

■IT  7  -  LATUGMOATAIENTRY 
BIT  *  -  UTWDATAIENTRY 
in  5  -  MAGVARIDATAIENTRY 

IF  XU.  DATA  WAS  ENTERED  NORMALLY  DC  RETURN  FLAG  HAS  A  VALUE  OF  (DC  (1). 

IF  DC  SUBDUE  SWITCH  WAS  PRESSED.  THE  RETURN  FLAG  HAS  A  VALUE  OF  ZERO  (0). 

•/ 

2  IF  AETIflAG  «  I  T»CN  RETURN!  1)1 

2  At 

NMPTIPTR  >  WAYPTMOD; 

2  IF  (RETlflAG  AND  40H)  >  0  THEN  DO; 

3  CXU.  UNPA01UAYP T  ( 1 3  ■ .  LAS  T  UM  YPT .  UTH, . WAYPT. UTMKSPMEROID) t 

3  WAYPT.STATUS  »  WAYPT.STATUS  OR  21 

3  END 

2  IF  (AETIFLAC  AW  BON)  >  0  THEN  DO! 

3  CALL  UNPACV«AYPTU3,.LASTN«YPT.a..WAYPT.LATU 


CALL  CLEAR12); 

CAU.  DISPLAY!. COCRDITABLEAUi: 

CALL  DISPLAYIWAYPT ITYPE ( WAYPT ITYPE ) ! 

CALL  GRIO(.SUBMOOEtGRlD)! 

CALL  READ (.COORDS I CBi: 

IF  SWV  «  SUBMODEISH  THEN  RETURNIOli 
IF  SWV  *  STEF1SW  DC N  DO; 

RETIFLAG  *  OEOH;  /*  COPY  ALL  DATA  FROM  LAST  WAYPOINT  «/ 

SO  TO  A; 

EM; 

NAYPWTYPE  *  WAYPTITYPE  ♦  SHL(SWfIWO,i)! 

IF  SUtINDEX  THEN  RETIFLAG  *  LAT*LOf«DATA*ENTRY(HAYPT$ADD,UAYPT*TYPE); 

aSE  RETIFLAG  «  DNVIUTMiOATAIENTRY  ( WAYPTIADD,  WAYPTITYPE) ; 
IF  RETIFLAG  «  0  THEN  RETURN (0) 5 

RETIFLAG  ■  RETIFLAG  OR  MAGVARIDATAIENTRY  ( WAYPTIADD,  WAYPTITYPE)  J 
V  RETIFLAG  *  0  THEN  RETURN (0)! 


ft/n-90  amis?  dnv2 


12IHR79  MCE 


157 

3 

MAYPT.STATUS  *  MAYPT.STATUS  OR  <1 

ISO 

3 

END! 

159 

2 

IF  (RETSFLAG  AND  20H)  >  0  THEN  DOT 

161 

3 

CHL  UWCKIUAYPTI6».UCT9UAYPT.MIMSMARi 

162 

3 

MAYPT.STATUS  *  MAYPT.STATUS  CR  8; 

163 

3 

EM); 

164 

2 

RETURN!  lM 

1*5 

2 

BB1  /•  OF  COORD  •/ 

166 

I 

BB;  /*  OF  BW  »/ 

mu  DfOAMATIOHJ 

CODE  AREA  SIZE  «  OUCH  II 000 

VARIABLE  AREA  SIZE  «  001SH  210 

HUM*  STACK  SIZE  ■  OOOCH  120 
339  LINES  READ 
0  PROGRAM  ERROR(S) 
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ISIS-II  PL/M-50  V3.0  COTILATION  OF  HOULE  0NV3 

OBJECT  HOULE  PLACED  IN  :Fi:UW3.0W 

COTILER  INVOKED  BY:  PLH30  :FI:0NV3.SRC  CATE(8HAR7?)  DEBUS 


*Tm£<'DNV3') 

/•  DNVtUPOATE  •/ 

1  0W3:  DOS 

tNOLIST  INCLUDECPlsCDULIT.SRC) 

♦  1  DISPLAY1ACT IVEtWAYPT :  PROCEDURE  EXTEFJIALi 

5  2  BO; 

A  1  OIBPLAYtPRESENTtPOSITION:  PROCEDURE (RON)  EXTERNAL! 

7  2  DECLARE  ROM  BYTE! 

«  2  BO! 

f  1  BNWCOORDtOATAtENTRY:  PROCEDUR£(WYPT»PTR,HAYPT»TYPE)  BYTE  EXTERNAL! 

10  2  DECLARE  MAYPTIPTR  ADDRESS.  UAVPTtTYFE  BYTE: 

11  2  SO! 

12  1  CLEAR:  PROCEDURE (STARTtROU)  EXTERNAL! 

13  2  DECLARE  STARTtROM  BYTE! 

14  2  BO! 

13  1  ERROR:  PROCEDURE  (CODE)  EXTERNAL! 

14  2  DECLARE  CODE  BYTE! 

17  2  BO! 

10  1  GRID:  PROCEDURE(POINTER)  EXTERNAL: 

19  2  DECLARE  POINTER  ADDRESS! 

2D  2  BO! 

21  1  DISPLAY!  PROCEDURE!  IWPTR)  EXTERNAL! 

22  2  DECLARE  INIPTR  ADDRESS; 

23  2  BO! 

24  1  DISPLAY»DICIT*KB:  PROCEDURE  EXTERNAL! 

25  2  BOl 

24  1  READ:  PROCEDURE! ICBSPTR)  EXTERNAL! 

27  2  DECLARE  ICB1PTR  ADDRESS! 

21  2  BO! 

29  1  UPDATE  JUNE:  PROCEDURE! RON. COL. NOW, TEXTtPTR)  EXTERNAL! 

30  2  DECLARE  IROU.COL.NCHAft)  BYTE,  TEXTIPTR  ADDRESS! 

31  2  BO! 

31  1  U0A0C4WAYPT:  PROCEDURE(WYTES.SOURCE*PTR,OEST$PTR)  EXTERNAL! 

31  2  DECLARE  WYTES  BYTE,  (SQURCEIPTR.  DESTIPTR)  ADDRESS; 

34  2  BO! 


/•  EXTERNAL  VARIABLES  »/ 

35  1  DECLARE 

OFFtONITEXmi  BYTE  EXTERNAL, 

BLANK tU!C(24)  BYTE  EXTERNAL. 

DATAIENTERED  BYTE  EXTERNAL. 

DUBUFU!  BYTE  EXTERNAL. 

SUV  BYTE  EXTERNAL. 

SWIWEX  BYTE  EXTERNAL. 

SUWDOEWRID  BYTE  EXTERNAL. 

SUSnOOEfSUtENABLf  BYTE  EXTERNAL. 

DNVtCXPTMMTAdO)  STRUCTUR£lOlGITS<68)  BYTE)  STERNAL, 

DNV4TENP4MAYPT  STRUCTURE! 

STATUS  BYTE. 


r 


Pl/N-80  COTILER  am 


WAR  79  PACE 


ut«*:pheroid  byte, 

(irmohEU)  byte, 

UTMALPHA<3)  BYTE, 

UTfl$VfilUE(8)  BYTE, 

LATITUDE(6)  BYTE. 

LCNGITUD£(7>  BYTE, 

WGVARI6)  BYTE)  EXTERNAL; 

36  1  DNVWPDATE:  PROCEDURE  PUBLIC! 

37  2  CEOARE  TA91<»)  BYTE  DATA! 

ROHO, 'DNV'.CCLP.'lFDATE', 

R0M,C0L6,'CKPT', 

R0U7,C0L7,'UP'> 

ROHB.COU.'OATE'.OK 
3B  2  DECLARE  ENABLE 1  STRUCTURE! 

SUWASX17)  BYTE, 

SU*VAL(E(2)  BYTE)  DATA! 

C,0,20H,0,20H,0,SOH.  /«  CXPT,  UPDATE,  SUBMODE  */ 

OIN.20HH 

3»  2  DECLARE  ICBt  STRUCTURE  i 

(ODE  BYTE.  NUWCH  BYTE,  DELtttCH  BYTE,  DEU1K1ASK  ADDRESS, 
EODtRQH  BYTE.  ECHOFCOL  BYTE,  SW ENABLE  ADDRESS)  DATAt 
SU1TCH,  0,0, 0,0,0, .ENABLE) ); 

40  2  DECLARE  TAB2UJ  BYTE  DATA1R0W2, 'ENTER  CKPT',0); 

41  2  DECLARE  ICB2  STRUCTURE! 

NODE  BYTE.  NUfllCH  BYTE.  DELMCH  BYTE,  DELfltflASK  ADDRESS. 
ECNOtRtW  BYTE.  ECHOKOL  8Y7E,  SWENABLE  ADDRESS)  DATA! 
DIBIT, 1,0.0, 2, 11. .SUEM0DE4SN4ENABLE) i 

42  2  DECLARE  FRZE4TABI*)  BYTE  DATAIR0W4,'  FRZE',0); 

43  2  DECLARE  FR2E4ENABLE  STRUCTURE! 

SMIflASKtt)  BYTE, 

SMWALUEfl)  BYTE)  DATA! 

0.0.80H.0.0.0.80H,  /*  FRZE.  SUEMODE  */ 

01H)I 

44  2  DECLARE  FRZE4ICB  STRUCTURE! 

NODE  BYTE,  NUB4CH  BYTE,  OELHKH  BYTE,  DEUHHASK  ADDRESS, 
EQfitROU  BYTE,  ECHOKOL  BYTE,  SU4ENABLE  ADDRESS)  DATA! 
SM1TCH.0, 0,0.0, 0..FRZE4ENABLE); 

43  2  DECLARE  UPDATES TAB(»)  BYTE  DATA! 

RQW2. 'UPDATE  DIST  12.3', 

ROW.COJ.'UP'. 

KM8.C0L6,  'DATE'  .0) » 

46  2  DECLARE  UPDATESENASlE  STRUCTURE! 

SMHASK(7)  BYTE, 

SMVALUE(l)  BYTE)  DATA! 

0,0,0, 0.20H,Q,80H,  /♦  UPDATE,  SUEMODE  */ 
oih); 

47  2  DECLARE  UPOATEITC?  STKlCTWE! 

wie  byte,  i*.r»CH  byte.  deuhch  byte,  ceuwwsk  address, 

ECHOtRGK  BYTE.  ECHOKOL  BYTE,  SWEMBLE  ADDRESS)  DATA! 
SMTCH.0,0, 0-0.0.  .UPCATEIEJIAPLE)! 

48  2  DECLARE  (CWERDEI TAB!#;  BYTE  MTA! 

ROM, '  FRZE’. 

RCMB,'  NET.O); 

4»  2  DECLARE  KWFRIE4ENAELE  STRUCTURE! 

SUMASK(7)  BYTE. 

SMVALICI2)  BYTE)  DATA! 
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O.O.SOH.O.BW-O.SOH.  /•  NEW,  FRZE,  3JBHQCE  */ 
QIM.20H); 

30  2  DECLARE  tfWVWEIlCB  S^Xmi 

WOE  BYTE,  NLMCH  EiTE.  KL1KH  BYTE.  DELKWASK  AC  DRESS, 
EWCtROU  BYTE,  Eih-llCX  d.TE.  i.iE‘«BL£  ACtf.EiSI  CAT  A I 
SWITCH. 0.0.0.0.0>.SE„lfRIE$LNABL£)! 

91  2  OEOAfE  I  BYTE; 


s 

2 

nn 

CALL  CLEAR 10); 

39 

2 

GNU  DISPLAYIACTIVEIWAYPT; 

91 

2 

CALL  DISPLAY*PR£SENT»POSITION(2>! 

99 

2 

CULL  DISPLAY (.TAB1); 

94 

2 

CALL  GRIOl.SUE.NOCEtCRID); 

V 

2 

CALL  NEAD(.ICBl); 

a 

2 

00  CASE  SUtIMEl: 

90 

3 

90  TO  A;  /•  CXPT  SWITCH  PRESSED  »/ 

40 

3 

90  TO  C;  /•  UPDATE  SWITCH  PRESSED  */ 

M 

3 

aetwn;  /•  subhcde  */ 

42 

3 

001 

43 

2 

At 

CALL  CL£AR(2)! 

44 

2 

CALL  DISPLAY!. TAK);  /t  ■ENTER  CKPT*  »/ 

49 

2 

OU  0ISPLAYMICITV3; 

44 

2 

0 

CAU.  READ(.ICK);  /#  CKPT  NUflFER  t/ 

40 

2 

IF  SUV  «  SUBnODEtSU  TKN  RETURN; 

49 

2 

IF  NOT  OATAtENTERED  DCN  DO? 

01 

3 

CAU.  ESRORlOlt  /«  -INVALID  ENTRY*  #/ 

72 

3 

90  TDK 

09 

3 

00) 

74 

2 

I  >  INttUF(O)  *  30H-, 

79 

2 

CAa  UHPACKWAYPT(34,.DNV1CffTN)ATA(I)..IINV4TEJWUAYPT)J 

74 

2 

IF  (BWtTEfFlUAYPT. STATUS  AW)  4)  *  0  THEN  DOS 

7 1 

3 

OU.  ERR0RI2);  /»  *W  DATA  FOR  THIS  CKPT*  «/ 

70 

3 

go  root 

•0 

3 

emu 

/•  cm  SELECTED,  UAIT  FDR  ERIE  */ 

01 

2 

CAa  tt£AR(2)! 

92 

2 

CAa  DISPLAY!. FRZE4TAB); 

93 

2 

CAa  GRUH.SUBKCCEWRID); 

94 

2 

CAa  R£A0(.FRZE4ICS); 

99 

2 

IF  SUV  «  SUBRODEISW  THEN  RETURN! 

/•  FR2E  ENTERED.  WAIT  FOR  UPDATE  */ 

97 

2 

CAa  CLEARI2’; 

99 

2 

CAa  DISPLAY!. UPOATETTABM 

99 

2 

CAa  REAO(.UPOATEIICB); 

90 

2 

RETURN;  /i  DONE  •/ 

91 

2 

C«  /*  UPDATE  SWITCH  PRESSED  FIRST  »/ 

OU  CL£rifi(2); 

92 

2 

CALL  DISPLAY !.NEW!FR:E*TAB); 

93 

2 

CAa  R£AD(.NEUYFS:S*ICB>; 

94 

2 

DO  CASE  SW»'rJEl; 

99 

3 

co  to  E;  /•  fr:e  */ 

94 

3 

GO  TO  0;  /•  !CW  v 

t 


m*-eo  ami&  vm 


awn  pace 


97  3  RETURN;  /•  aS.itCE  */ 

98  3  END) 

99  2  Os 

/*  Id  SWITCH  PRESSED.  ENTER  CTFDtNATES  «/ 

jf  DwrtcoacKAwev-f ( .  rv.jroTtJiifpT.apT)  *  o  t>cn  return; 

/t  BATA  ENTERED.  WIT  FCP  FRIE  ♦/ 

101  2  CAU.  CL&W(2)i 

m  2  cau  MSPiAn.mu’w. 

103  2  CAU  CRlBI.SUBKiDEltRIO); 

104  2  CAU  READ(.FR2£$KB;; 

105  2  IF  SMI  *  SUBMODEL  THEN  RETURN! 

107  2  00  TO  F; 

108  2  E> 

/•  ERIE  ENTERED  8EF0R  Id  ♦/ 

l F  DNWCCDRDWWTAIEIiTRTI .  DNVJTEJfWAVPT >  CXPT)  *  0  THEN  RETURN; 

110  2  F; 

CALL  CLEARtl); 

til  2  CAU  OISPLAYI.UFDATEtTAS)! 

112  2  CAU  GRIDI.SUEDODEiGPIO)! 

1U  2  CAU  READI.IFDATESICS); 

114  2  IF  SM  INDEX  *  0  THEN  CO  TO  TOP; 

116  2  EMM  /*  OF  UPDATE  ♦/ 


117  1  EMM  /«  OF  SNV3  «/ 


mi£  orominoNt 

CODE  AREA  SIZE  «  0204H  3160 

VARIABLE  AREA  SIX  *  OOOIH  ID 

mint*  stuck  site  •  com  *d 

248  LIMES  READ 
0  PROGRAM  ERROR! S) 

M  OF  PL/n-00  COflLATION 


PUB-80  COMPILER 


ar.'i 


ISIS-II  PL/M-SO  V3.1  CCWILATICN  OF  rCDU_E  W(V4 

OBJECT  ROCHE  PLACED  IN  :Fi:&,'rt.tBJ 

COrPILER  INVOKED  by:  PLH30  :Ft:BW4.SRe  MTEUM0V79)  DEBUG 


*TITl£(,DNV4/) 

/»  FORmTtUAYPUCOCRD.  CNWWAYPTtSTATUS.  DNViBAaiPWWV  »/ 

I  DNV4:  DOi 

JHOLIST  INCU.iDE<:FtiCiM.IT.SRC> 

4  l  DISPLAYMCT1VEMAYPT:  PROCEDURE  EXTERNAL; 

5  2  END: 

4  1  CLEAR:  PROCEDURE (RON)  EXTERNAL: 

7  2  DECLARE  ROW  BYTE: 

82  END; 

9  1  DISPLAY:  PROCEWJREfPTR)  EXTERNAL! 

10  2  DECLARE  PTR  ADDRESS; 

II  2  END: 

12  1  UPDATE4LINE:  PROCEDURE (ROW, COl, KBYTES, itXT*PTR)  EXTERNAL: 

13  2  DECLARE  (ROW.COL.NBYTES)  BYTE,  TE1TIPTR  ADDRESS: 

14  2  END: 

13  1  DISPIAY4DICITIKB:  PROCEDURE  EXTERNAL: 

16  2  END; 

17  1  CRID:  PROCEDIRE(PTR)  EXTERNAL! 

18  2  DECLARE  PTR  ADDRESS; 

1?  2  END: 

20  1  READ:  PROCEDUREf  IC8*PTR)  OTERNALS 

21  2  DECLARE  ICB4PTR  ADDRESS; 

22  2  END; 

23  1  INSERT;  PROCEDUREfNCHAR,  SOLRCEIPTR,  DEST*PTR.OElN*CH>  DELMftASK)  EXTERNAL 

24  2  DECLARE  (NCHAR.DELfliCH)  BYTE,  (SOURCE*PTR,OEST*PTR.OElJSfttSK)  ADDRESS! 

25  2  end; 

26  l  PACX4MAYPT:  PROCEDl*E(COUNT.SOUKCE»PTR,DeST*PTR)  EXTERNAL; 

27  2  DECLARE  COUNT  BYTE,  (SOURCEIPTR,  0EST4PTR)  ADDRESS; 

28  2  END! 

»  1  IWACMUAYPT:  PROCEDURE ( COUNT,  SCUFCEtP TR , 0EST4PT? )  EXTERNAL! 

30  2  DECLARE  COUNT  BYTE.  (S0URCE4PTR,  DEST4PTR)  ADDRESS; 

31  2  EWl 

32  1  CLEAR* TEJP4BUF:  PROCEDURE  EXTERNAL; 

33  2  EM; 

34  1  ONWCOORO*DATA*ENTRY:  PROCEHRE(WAYPT*PTR,UAYPT*TYPE)  BYTE  EXTERNAL! 

35  2  DECLARE  UAYPTtPTR  ADDRESS,  WAYPTJTYPE  BYTE! 

36  2  END: 

/»  EXTERNAL  VARIABLES  *1 

37  l  DECLARE 

SWV  BYTE  EXTERNAL, 

SWIfffEX  BYTE  EXTERNAL. 

INtBUFU)  BYTE  EXTERNAL. 

DATA4ENTERE0  BY”  EXTERNAL, 

TEJWBUFU)  BYTE  EXTERNAL, 

SUBCODE 4CRI3  BYTE  EXTERNAL. 

SWSCE*SWENAPL£  BYTE  EXTERNAL. 

SPHER0ID4TE1TI6)  STRUCTUKEiCHU)  BYTE)  EXTERNAL, 

ONWTBfWAYPT  STRUCTURE ( 

STATUS  BYTE, 


PUR-80  COff  ILER  DNV« 
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UTMSWEROID  BYTE, 

UTWZ0r£(2)  BYTE. 

OTW4j>W!'.  BYTE. 

UTMVALl€(8>  hit. 

LAT I TUDG < 6 >  BYTE. 
tOKCmi!E(7)  BYTE. 

NAGVAK16)  BYTE!  EXTERNAL, 

WVBSTATIS  BYTE  EXTERNAL, 

ONWDESTIHATION  BYTE  EXTERNAL. 

BWCWTBMTA  BYTE  EXTERNAL. 

DKWTGTIDATA  BYTE  EXTERNAL, 

BMLASTWAYPTIPTR  AOWESS  EXTERNAL, 

BNVtUINCiDIR  BYTE  EXTERNAL. 

0HV*HINDiSP£ED(3)  BYTE  EXTERNAL, 
tNWGR0UND»SP£EB(3)  BYTE  EXTERNAL, 

0NV»TRACmail3)  BYTE  EXTERNAL! 

36  1  DECLARE  WAYPT*BAS£*ADD  ADDRESS. 

(PAttEWWAYPT  BASED  UAYPTf BASEtADD) ( 10)  STRUCTW£(CH<68>  BYTE)! 


' ' '  ^Ih  V 1 '  IT  '.fft 


Pl/W-80  WILEB  DNV4 


IM0V79  PACE  3 


•EJECT 

3*  I  FCRflATWAYPT SCOORO:  PfiCCEftfiEfMYPTIADO)  PUBLIC! 

40  2  DECLARE  UAYPT».'.DD  ADDRESS:  /*  PUST  POINT  TO  AN  IKPACKED  UAYPOINT  DATA  BLOCK  ♦/ 

41  2  DECLARE  WAYPT  BATED  WAYPTIADD  STRUCTURE  t 

STATUS  BYTE. 

UTMSPttPOID  BYTE, 

UTMZ0UEI2)  BYTE, 

UTWALPHAO)  BYTE, 

UTH$VALl£l8)  BYTE, 

LATITUDES)  8YTE, 

L0NGITUDE(7)  BYTE, 

HAGVARI4)  BYTE)! 

42  2  DECLARE  ERRQRtKSG(t)  BYTE  DATA! 'DATA  NOT  AVAILABLE'), 

43  2  FORnATHATfLON:  PROCEDURE; 

44  3  CALL  INS£HT(6..«AYPT.LATITlirE,.TEIP4BLT(3),/.M200H)! 

43  3  CALL  I NSERTI7,. UAYPT. LONGITUDE, .TETyjBUFI  14), ‘ViOPOCH)! 

44  3  TEfP»BUF(6),TEfPJBUP(13)  *  DEGISYHi 

47  3  TErf*BUF(ll),TEKP*8LF(23)  *  ""S 

48  3  EM); 

49  2  FORHATtUTn:  PROCEDURE; 

3D  3  CALL  H0VE(3,.SPNER0ID*TEXT(HAYPT.UnMSPHER0ID  AND  0FH)..TENP*BUF(3)); 

31  3  CALL  INSERT  1 13, ,  HAYPT.UTMZOt, .  TQMBUF  (7 ) . '  '.22ICH); 

32  3  EM): 


S3  2  IF  DNVISTATUS  T)£N  DO; 

35  3  IF  (UAYPT. STATUS  AND  2)  >  0  TKN  CALL  F0RNAT4UTN; 

37  3  ELSE  DO; 

SB  4  IF  (UAYPT. STATUS  AND  4)  }  0  THEN  CALL  FORNAT*LAT*LON; 

40  4  ELSE  CMJL  KWE(18..EPR0MrSG,.TEW*BUF(3))i 

41  4  EM); 

42  3  EM); 

<32  ELSE  00; 

<4  3  IF  IHAYPT.STATUS  AND  4)  >  0  T*N  CALL  FCRNATtLATiLON; 

<4  3  ELSE  DO; 

47  4  IF  (UAYPT.STATUS  AND  2)  >  0  THEN  CALL  FORHATWTm 

49  4  ELSE  CALL  nOVEU8,.ERRGR4R3C,.TE^IBUF(3)); 

70  4  EM» 

71  3  EMU 

72  2  ENDI  /•  OF  FORrtAT  MJAYPT ICOORD  «/ 


PL/n-90  CCtfllSR  DNV4 


1KW79  PACE  * 


(EJECT 

73  1  0NV4UAYPTISTATUS:  PROCEWflEfTYPE)  PUBLIC! 

74  2  DECLARE  TYRE  BYTE;  /♦  0  «  CYPT,  I  -  TCT  «/ 


75  2  DECLARE  STAT4TASLEAJ!*)  BYTE  DATA! 

ROUO.W. 

R»I.CO22.V3'.0>; 

76  2  DECLARE  TYPetTABLSA0(2l  STRtCTlE£tTEIT(7)  BYTE)  DATA! 

ROUO.COL6.  'C*PT',0, 

ROUO.COL4,'  TCT', 01 ; 

77  2  DECLARE  PAGEI2(STAT(SW(ENABL£  STRtCTUREC 

SH(NASK<7I  BYTE, 

SWEHABLET2)  BYTE)  DATA1  _ 

O>80N.80H,80H,80Hi0,SSH>  /»  9W  *  10Q.20Q.30Q. 40Q,SUB«0EC.  STEP  */ 
0JH.23HM 

78  2  DECLARE  PAGEiZISTATIICB  STRUCTURE! 

JBDE  BYTE.  MJMCH  BYTE,  B£LM(CH  BYTE,  EELWNASK  ADDRESS, 

ECHMROU  BYTE,  ECHCTCOL  BYTE,  SME.NA3LE  ATCRESS)  DATA! 

SWITCH,  0-0,0, 0.0,.FACE12(3TAT(:«£WBL£); 

T9  2  DECLARE  PAGE3(STAT4$yi ENABLE  STRUCTURE! 

SWSHASK17)  BYTE, 

SWVALlC(l)  BYTE)  DATA! 

O.0OH,8OH,O,O,O.8SH,  /»  SWV  *  1 00,200, SUBCODE, STEP  t / 

01HH 

80  2  DECLARE  PACE3(STAT4ICB  STRICTURE! 

NODE  BYTE,  NUMCH  BYTE.  DEUKCH  BYTE,  DQJKHASX  ADDRESS. 

ECHOtROU  BYTE,  ECHQ4C0L  BYTE,  SWlEfiABLE  ADDRESS)  DATA! 

SWITCH,  0.0, 0,0.0,.PACE3(STAT4SWIENABLE)i 

81  2  DECLARE  PAGE1SIZEI3)  BYTE  DATA(3,3.1).  /•  HINUS  0(C  f/ 

UAVPTINUH  BYTE, 

HAYPTMFFSET  BYTE,  * 

STAR  (ENABLE  BYTE, 

ACTIVEWAYPT  BYTE, 

(PAGE, I, N)  BYTE! 


82  2 
84  2 

86  2 
86  2 

87  2 

88  2 

89  2 
70  3 
91  3 

n  3 
n  3 

94  3 

95  3 

96  3 

97  3 

98  3 

99  4 

100  4 

101  4 

102  4 


IF  TYPE  *  OPT  THEN  WAYPT(BAS£(APO  *  ,DNV(CKPT*DATA! 

ELSE  «AYPT(BAS£(ADD  *  .ONVfTGKOATA; 

STAR4ENAELE  *  NOT  (TYPE  TCP  DNV( DESTINATION); 

ACTIVE(WAYPT  *  StfUDNViDESTINATION.il  AND  OFH; 

PACE  *  o; 
wayptfoppset  «  o; 

DO  FOREVER; 
am  aiARtoi? 

CALL  DISPIAY(ACTIVE(«AYPT; 

CALL  DISPLAY! .  TYFEiTAELEAU!  TYPE)) ! 

C«X  DISPLAY!. STAKTAELEAU)'- 
N  *  PAGE(SI!E(FACE); 

TETMBLflO)  *  PACE  ♦  31H; 

CALL  LFCWTEOLirt  (1 ,21,1,.  7EMP8EAJF) ! 

CAa  ttEAR(2); 

DO  I  *  0  TO  N; 

CAa  CLEAfitTEfPtBCF! 

WAYPW.J1  *  UAYPTiOFFSET  ♦  I! 

TENP9B.F11)  *  UAYPT»M.«  ♦SOW 

IF  STAR(EJtt£LE  AND  WAYPTiNUH  •  ACTlMt(HAYPT)  THEN  TENP(BI.FI2>  »  '»'? 


Pl/N-60  COMPILER  ENV4 


4  CAU.  UffflCttXrPTn4..P^EJt'JArPT!UAYPT!‘W1)..»mTEnPt«AYPTt: 

4  CALL  FORflATlSwYFTKGCROt  .E«VtTErFll«AYPT)  S 

4  CALL  UP0AreSLIXC<I*2«2.0.24..TErP«BUF); 

4  END; 

3  IF  PACE  <  3  THEM  CALL  REAO(.PftCEl2SSTflr*ICS> ; 

3  ELSE  CALL  fi£AD(.PAGE3$STAT*ICB!i 

3  IF  SUV  *  SliPKaSU  TteN  RETURNS 

3  IF  SWV  *  STEP43W  THEN  DO! 

4  PACE  *  (PAGE  ♦  1)  F10D  3S 

4  HAYPT4CFFSET  «  PACE*4S 

4  ENOS 

3  ELSE  DO! 

4  HAYPT4NU1  *  MAYPT40FFSET  ♦  SWINDEX; 

4  IF  CNWCOORMDATAIENTRY  ( .  OWITEHPWAYPT ,  TYPE )  *  1  THEN  DO; 

3  CALL  PACK$WAYPT!34i  .B»V$TENWUAYPT i  .PACKEDWAYPTIHAYPTWUH) ); 

5  DNV4LAST«IAYPT(PTR  «  . PACKED4UAYPT ( UAYPT $NUN ) i 

S  EWl 

4  EWs 

3  EM;  /•  OF  03  FOREVER  V 


127  2 


EMs  /«  OF  BMMAYPTISTATUS  */ 


PL/H-80  COTPILER  ONV4 


1H0V79  PACE  6 


128  1 

129  2 

130  2 

131  2 

132  2 

133  2 

131  2 
135  2 


(EJECT 

nwftwwfav:  pmrexrc  public; 

DECLARE  BACMJf'tTAELL-j:*)  BYTE  DATA! 

iiowo,/criv',ca«.'E-^»,/. 

WO,'  UUiD  MINS'.Ca-Il.'GSPO'. 

ROW.'  DIR'.COLi.  SPD'. 

R0U5.'  TRK', 

ROW.'  AHG'.OM 

DECLARE  BACKUPISWENABLE  STTIOCTUREI 
SMflASKtt)  BYTE. 

SNWALUEI3)  BYTE)  DATA! 

O.O.QASH.80H.O.O.SCH.  /(WIND  DIR.H1ND  SPD.OSPD.TRK.SUBHOOE  ♦/ 
01N.23H.40HM 

DECLARE  BACKUP4ICB  STRUCTURE! 

HOK  BYTE.  NUH4CH  BYTE.  DELfitCH  BYTE.  CELMMSK  ADDRESS. 
ED04ROU  BYTE.  ECHCSCOL  BYTE.  SUJENABU  ADDRESS)  DATA) 

SWITCH.  0. 0. 0. 0. 0, .  BACXlMSUIENAEtf )  > 

DECLARE  BACKUP4CATAtICB(4)  STRUCTURE! 

NODE  BYTE.  NUHfCH  BYTE.  CELKtCH  BYTE.  CELWNASX  ADDRESS. 
ECHOtROH  BYTE.  ECHCtCO.  BYTE.  SWENA8LE  ADIRESS)  DATA! 

DIGIT, 3.0,0, 2.9.. SU:MCE*SK*£f!A8LE.  /♦  WIND  DIRECTION  #/ 
DIGrT.2.0>0.2,9>,StlS>10CEtSJSENABL£.  /•  HIM)  SPEED  •/ 

DIGIT. 3.0.0, 2,  It.  .SLWCDEnwENABlE.  /•  GROUND  SPEED  •/ 
DI0n,3, 0.0.2. 10.  .SUBnODElSWEWBLEM  /*  TRACK  ANGLE  •/ 

DECLARE  8ACKUWENTRYITABI4)  STRUCTUR£(CH(13>  BYTE)  DATA! 

MM2, 'WIND  DIR  '.0, 

MM2. 'HIND  SPO  '.0. 

MM2. 'GROOM)  SPO  '.0, 

MM2. 'TRACK  ANGLE'. 0)1 
OGCUVE  NUWDIGITSI4)  BYTE  0ATA(3.2,3,3M 
DECLARE  0ATA4AD0<4)  ADDRESS  DATA! 

.DMUIND40IR. 

.DNNUIMISPEED. 

.DNV4CR0UKD4SPEED. 

•BMXTRACKMNGLE)  t 


PL/H-80  COT  1LER  0NV4 
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•EJECT 


136 

2 

BACKUP  MATAlENTRY:  PRCCECUREII): 

137 

3 

OECLAAE  1  BYTE! 

138 

3 

CALL  CL£AR<2); 

139 

3 

CAa  DISPLAY!. BACKUF1ENIRY4TAB ! I)  1 ! 

140 

3 

CALL  DISPLAYIOIGITIKB; 

141 

3 

CAa  READl.BAMflDATAilCBU)): 

142 

3 

IF  SW  *  SUE«OrE»?y  TtfN  RETURN; 

144 

3 

IF  0ATA4ENTERED  Affl  (SUV  *  ENTER4SU)  THEN 

145 

3 

CAa  HOVEHJLKlOIGITStI ) . .  I.NIKjF.  GATAIADOd ) ) ! 

146 

3 

EM);  /•  OF  BACKIPIDATAJENTRY  #/ 

147 

2 

DISPLAYISTATtLKE:  PROCEDURE; 

148 

3 

DECLARE  STATSTAIIEAU!*)  BYTE  DATA! 

RONl/H'.OM,  '/',COL«.  'TRX',CCL17,  'GSPD'.OU 

149 

3 

DECLARE  UNEUGCM)  ADDRESS  DATA! 

.TEfWBUF+1 ,  .TEHP5BUF+5,  .TEKP4BUF+21 .  .TEJWBUF+12); 

tso 

3 

DECLARE  I  BYTE; 

151 

3 

CAa  DISPLAY!. STAT4TABLEAU); 

152 

3 

CAa  CLEARITEWWi 

153 

3 

DO  1  •  0  TO  3; 

154 

4 

CAa  N0VE(NUK40IGITS(n.DATA$ADD(l).LU£4LOC(I)M 

155 

4 

END! 

156 

3 

CAa  UPDATE«L»E(1.0.24..TEK>«BUF); 

157 

3 

EM):  /•  OF  DISPLAY4STAT4U(C  ♦/ 

/•  BE6IN  BACKUP  CODE  »/ 

158 

2 

DO  FOREVER: 

159 

3 

CAa  OEARfOK 

160 

3 

CAU  0ISPLAY4ACTIVE4UAYPT; 

141 

3 

CAa  DISPLAY4STAT4UNE; 

142 

3 

CAa  DISPLAY!. BACKUP4TABLEAUX 

143 

3 

CAa  0RI0(.SUBTCCC4C<RID)I 

144 

3 

CAa  BEAD(.BACKUPtlCB); 

145 

3 

IF  SUV  •  SUBMOKISU  TON  RETURN; 

147 

3 

CAa  BACKUPtDATAiENTRY ( SW$ INDEX) » 

148 

3 

DOT  1*  OF  DO  FOREVER  *( 

148 

2 

00!  /•  ONWBACKUPWW  «/ 

170 

1 

DOf  /•  OF  INV4  •/ 

NODULE  IMFGRMTIMs 

COCE  AREA  SIZE  >  04«IH  11690 

VARIABLE  MCA  SHE  «  OOOEH  140 
NAXIIU1  STACK  SIZE  •  OOOCH  12) 
333  LINES  READ 
0  PMOMN  ERRORS) 


t 


Pl/H-80  CM>!UR  DNV4 
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00  OF  PL/H-80  COfPIumON 


Pl/K-30  Ct»fIL£R  DNV3 


IN0V79  PACE  1 


isis-n  Fv/n-so  vj.  i  corFiuvncH  of  waif 

OBJECT  HCDJLE  PLACED  IN  ;Ft:»«5.CBJ 

COPlL£R  INVOKED  BY:  PLWO  :F1:DNV5.$RC  DATEUN0V7?)  DEBUG 


♦TITLE ('0NV5') 

/»  DWSUTHMATASENTRY ,  PACK5WAYPT,  WPACXIUAYPT  #/ 

1  DNV3:  DO; 

2  1  DECLARE  HORZ  LITERALLY  'OFEH', 

VERT  LITERALLY  'OFDH'i 
♦NOLIST  INCLUDE! sFlsCOULIT. SRC) 

5  1  CLEARS  PROCEDURE (ROW)  EXTERNALS 

6  2  DECLARE  ROW  BYTE; 

7  2  EM): 

8  1  DISPLAY:  PROCEOJRE(PTR)  EXTERNAL; 

9  2  DECLARE  PTR  ADDRESS; 

10  2  END; 

It  1  UPOATEILINE:  PROCURE!  ROW,  Ca.NCHAR.TEXTSPTR)  EXTERNAL; 

12  2  DECLARE  (HM.CGL.NOttR)  BYTE.  TEXTSPTS  ADDRESS; 

13  2  EM); 

14  1  READ:  PROCEDURE! ICBSPTR)  EXTERNAL! 

13  2  DECLARE  ICBWTR  ADDRESS; 

16  2  END; 

17  1  GRID:  PROCEDLREiORIDSPTR)  EXTERNAL! 

18  2  DECLARE  GRID5PTS  ADDRESS; 

19  2  END; 

20  1  DISPLAYSOIGIWB:  PROCEDURE  EXTERNAL! 

21  2  END; 

22  1  DISPLAYWAYPTITYPEs  PROCEDURE!  TYPE  I  EXTERNAL! 

23  2  DECLARE  TYPE  BYTE: 

21  2  END; 

25  1  D1SPLAYIACT1VEMAYPT:  PROCEDURE  EXTERNAL! 

26  2  001 

/*  EXTERNAL  VARIABLES  V 

27  1  DECLARE 

SUV  BYTE  EXTERNAL, 

SUf INDEX  BYTE  EXTERNAL. 

DMBUFIl)  BYTj.  EXTERNAL, 

BATAIENTERED  BYTE  EXTERNAL, 

SUBHQOEiSWENABLE  ADDRESS  EXTERNAL, 
SU8KKE«STEP$SUS£fASL£  ADDRESS  EXTERNAL, 

SUWOOEKRID  ADDRESS  EXTERNAL; 


28  I  DECLARE  SPtCROIDSTEXTffc)  STRUCTURE! CHI 3)  BYTE)  PUBLIC  DATAI'CLOEVOCLSEBOINOAUO')! 


29  1  DWUTMOATAIENTRY!  PROCEDURE  I HAYPTIPTR ,  UAYPT9TYPE I  BYTE  PUBLIC; 

30  2  DECLARE  VAYPTJPTR  ADDRESS,  /*  (VST  POINT  TO  AN  UNPACKED  UAYPT  DATA  BLOCK  *t 

UAYPTITYPE  BYTE! 

/»  UPACKED  WAYPOINT  DATA  BLOCK  •/ 


PL/N-80  COMPILER  DNV5 
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31  2  OEOAfE  WYPT  BAiED  UAYPTIPTR  STRUCTURE! 

STATUS  BYTE. 

UTJ1I3P1CR01D  BYTE. 

UTMZOfEC)  BYTE, 

UTHIALPHA(3)  BYTE, 

UTMVALLE(8)  BYTE, 

LAM)  BYTE. 

L0K(7>  BYTE, 

WCVARI6)  BYTE); 

32  2  DECLARE  SP»£ROID*TAEL£AU<*>  BYTE  DATA! 

ROUO.'DNV'. 

fWC, 'SELECT  SPtSROID', 

RCW.COL12.  'CLO'.CCLIT,  'EVO' . 

R0M6.C0LI2,  'a6'  ,Cai7,  'EEO' . 
we.ca^.'iw'.can.'Auo'.o); 

33  2  DECLARE  SPHEROlOSSUfENABLE  STRUCTURE t 

SUW1ASKI7)  BYTE. 

SMVALUE(6)  BYTE)  DATA< 

0>0,OEH,OEH,OEH,0,£H,  /»  CLO.EVO.BEO.IMO.AUO.SUBMOOE.STEP  »/ 
01H.12H.33H.45H.SW.70HI; 

34  2  DECLARE  SPHER0ID1ICB  STRUCTURE; 

HODE  BYTE.  MUNICH  BYTE,  CELHICH  BYTE,  DEU14HASK  ADDRESS. 

EDOtROU  BYTE,  E0CIC2U  BYTE,  SUtENABLE  ADDRESS)  DATA! 

SWITCH, 0,0, 0,0,0. .SPtEROIDISUIENABLE) I 
39  2  DECLARE  ZOfOICB  STRUCTURE! 

HODE  BYTE.  NUNiCH  BYTE,  0EU1ICH  BYTE.  OEUWASK  ADDRESS. 

ECHOIRCM  BYTE,  EOCICOL  BYTE.  SWJENABLE  ADDRESS)  OATA! 

MCir.2.0.0,2. 11,  .SUcNUCEISTEWSWElwafJ  f 
%  2  DECLARE  ZOTEITABLEAUIt)  BYTE  DATA (R0«2, 'ENTER  ZONE'.O); 

V  2  DECLARE  ALPHAIKBITAELEAUU)  BYTE  DATA! 

HOM2.Cai.'A',Ca4,'B'.Ca7,'C',CaiO,'0',Cai3,'E'.CaiB,'F'.Ca.l9.'G',COL22.'H', 
ROH4.COL4, '  J'  ,C0L7,  'K' ,  C0L10,  'L' ,  CCL13,  'H'  .C0L16,  'N'  ,C022,  'P'. 
ROH6.Cai.'0',Ca4.'R',aL7,'S'.COL10.'T',Cai3,'U',Cai4.'V'.COL19,'H',Ca22.'X', 
ROUS.OX1.'Y',COL4,'Z',CCL16,'C',COL22,'E'.0)> 

2  DECLARE  ALPHAIKBIGRID!*)  BYTE  DATA; 

HORZ. 4. 14, 22. 32. 42, 52, 62. 72, 82, 92, 

HORZ, 22.32. 22. 32.42. 52, 62. 72. 82. 92, 

HORZ.40. 50.22, 32.42.52.62, 72.82.92. 

HDRZ. 58. 68. 22. 32. 42. 52, 62, 72, 82. 92. 

H0RZ.7i.86.22.32, 42, 52, 62, 72, 82.92. 

HDRZ. 94. 104,22, 32. 42, 52. 62. 72, 32, 92, 

HDRZ. 112. 122.22. 32, 42,52, 62, 72, 82, 92, 

HORZ. 130. 140, 22, 32. 42, 32. 62. 72, 82 , 92, 

VERT.22.32. 4, 14, 22. 32, 40.50, 53, 63, 76, 86,94, 104, 112, 122, 130. 140. 

VERT.42,52, 4, 14.22.32, 40, 50, 53, 63. 76, 86, 94. 104, 112, 122. 130, 140. 

*  VERT.42, 72,4.14, 22.32.40.50, 58, 68, 76.86, 94. 104, H2.122, 130.140, 

VIRT,82.92,4, 14,22,32,40,50,58,63,76,86,94,104, 112, 122, 130, 140. OFEH); 

39  2  DECLARE  ALPHA!  I CB  3T9VCTUPEI 

HODE  BYTE.  NUNICH  BYTE.  tCUHCH  BYTE,  CCUSNASK  ADDRESS. 

ECHOIROH  BYTE,  ECMICOL  BYTE,  SUIETttBLE  ADDRESS)  DATA! 

BWVIALPHA, 3, 0. 0. 1 . 6. .  SUBnOPEISTEF ISWIENABLE > ! 

40  2  DECLARE  VALUEtTASLEAU")  BYTE  DATA  (ROW  I,  ENTER  VALUE'.OIt 

41  2  DECLARE  VALUEIICB  STRUCTURE; 

HODE  BYTE.  NUHICH  BYTE.  DEUHCH  BYTE.  CELfllNASK  ADDRESS. 

ECHOIROU  BYTE,  EChdCOL  BYTE,  SWIENADU  ADDRESS)  DATA! 

DIGIT. S. '  ',OBOOH,2,0,.SUtHOOEtSTEPISUIENABLE)! 
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42  2 

43  2 

44  2 

45  2 

44  2 

47  2 

48  2 
SO  2 
32  2 

53  2 

54  2 
35  2 
54  2 
57  2 
38  2 

37  2 
41  2 

43  2 

45  3 

44  3 

47  3 

48  2 

47  2 
TO  2 

71  2 

72  2 

73  2 

74  2 
74  2 
78  2 
77  2 
10  2 

«  2 
82  2 

83  2 

84  2 

85  2 
84  2 

07  2 
8»  2 
71  2 

73  3 

74  3 

75  3 
71  2 
77  2 

TO  2 


4EJECT 

/»  UTH  SPIEROIO  SELECTION  ♦/ 

CALL  CLEAR(O); 

CALL  DISFLAYIACTIVEIUAYPT: 

CALL  DISPLAY ! . Sr  HEFC I TIT AELEAU) i 
CALL  D(SFLAY»liAYfTI7YF£UWiPT»rYPE): 

call  auK.susssrEiosiim 

CALL  READt.SPHEROICJICBI: 

IF  SWV  *  SUBNCCE**  HEN  RETURMOIS 
IF  SWV  *  STEP43U  THEN  PETURN140HX 
UAYPT.UTM3PHEP0ID  *  SUKNTO: 

/•  UTH  ZONE  ENTRY  •/ 

CALL  UPDATEJUNEIO.  4,  3,  .SPYCROIWTElTdWYPT.LTTHiSPHEROID)); 
CAa  CLEARUX 

CALL  DISPLAY ( . Z0NE4T fiBLEAU ) i 
CALL  OISPLAY$UAYPT*TYPE  ( UAYPT4TYPE) i 
CAa  DISPLAY4DIGIWB; 

AS 

CAa  READ(.Z«£*IC8); 

IF  SUV  »  SU6N30E4SH  TIEN  RTRWKOIl 
IF  SUV  *  STEP4SU  THEN  RETURN(40H>1 
IF  DATA4ENTERED  AND  (SUV  *  ENTER 4SU)  TIEN  DO; 

HAYPT.imnZCtCtO)  »  INIEUF(O); 

UAYPT.UTHtZOrCd)  >  INSBUFUIf 

end; 

ELSE  GO  TO  A;  /«  REJECT  <ENTER>  NOT  PRECEEDED  BY  DATA  •/ 

/•  WIN  ALPHA  ENTRY  »/ 

CAa  0£AR(W 

CAa  0PDATE4LI*(O.7,2..IN$BUF»  /•  PUT  ZONE  ON  THE  SCREEN  ♦/ 
CAa  GRIOt.ALPHAtKBSGRID); 

CAa  0ISPLAY(.ALPHASKB4TA£l£AUIf 

•s 

CAa  READ!. ALPHA4ICB); 

IF  SUV  «  SUBHOOESSU  DEN  RETURN(O); 

IF  SUV  »  STEP4SU  TIEN  RETUM(40H)S 
IF  DATA4ENTERED  AND  (SUV  *  ENTER4SU)  THEN 
CAa  NOVE(3».IN*BOFt.UAYPT.UTWALPHA)i 
ELSE  00  TO  B; 

/•  «H  VALLE  ENTRY  #/ 

CAa  UP0ATE4LINE(0«  7,  3,  .INtBUF); 

CAa  CLEARU); 

CAa  OISPlAYtDIGITiKB; 

CAa  DISPLAY). VALUE4TAFLEAU); 

CAa  0ISPLAY4MAYPT$TYPE(  UAYPTITYPE)  I 

0 

CAa  READt.VAU€*!CS>; 

IF  SUV  «  SW0DE4SU  TIEN  RETURNIOM 
IF  SUV  «  STEP4SU  TIEN  RETURN (40H); 

IF  0ATA4ENTERED  AND  (SUV  *  ENTEP.4SU)  TIEN  004 
CAa  IWE  (3. .  IMBUF. .  UAYPT.  UTWVALlE ) ' 

HAYPT. STATUS  «  UAYPT.STATUS  OR  2! 

EM; 

ELSE  GO  TO  Cl 

RETURN! 1);  /«  NORflAL  RETURN  -  DATA  ENTERED  •/ 

EMIT  /•  OF  UTR40ATAIENTRY  */ 
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IEJECT 


w 

1 

DECLARE! I. J,W)  BVTE3: 

100 

1 

PACHUAYPTi  PR<X‘£ttRE(CtXNT.Sa«CE«PTR,K':.TlPTR)  PUBLIC; 

/t  TW  DATA  FRi*  THE  'LLPCE  APPAY  A=£  SEPARATED  INTO  NIELB  MO  «£  PLACED  IN 
SUCCESSIVE  BYTES  IN  THE  1ESTINATICJI  AFPAY  IN  TIC  LEFTMOST  FOUR  BITS. 

THIS  DATA  WILL  OVERLAY  GF.AFWCS  DATA  IN  FfBUFB.  *t 

tot 

2 

DECLARE  CaW  BYTE,  /•  NU1BER  CF  BYTES  TO  BE  PACKED  */ 

SOURCE tfTR  ADDRESS. 

DESTIPTR  ADDRESS; 

102 

2 

DECLARE  (SOUFCE  EASED  SCUF.C£tPTR)(l)  BYTE, 

(BEST  BASED  0EST4PTRK1)  BYTE; 

103 

2 

J  »  Ol 

104 

2 

COUNT  *  COUNT  -  IS 

109 

2 

DO  I  *  0  TO  COUNT; 

104 

3 

H  »  SOURCE!!); 

107 

3 

DEST(J)  «  (OESTM)  AND  OFH)  OR  (U  AND  0F0H1S 

100 

3 

XST(J*U  *  (XST(J*t)  AND  CFHI  OR  SJKU.4); 

109 

3 

J  ■  J  ♦  2l 

110 

3 

end; 

111 

2 

END1  /•  OF  PACK4WAYPT  */ 

112 

1 

UNPACKtUAYPT:  PROCEDUFEiCIXiKT.SaRCEWTR.DESWTR)  PUBLIC; 

/*  WE  LEFTMOST  4-BIT  NIBBLES  FRQfl  T*  SOURCE  ARRAY  APE  ASSEMBLED  INTO  BYTES 
IN  TIC  DESTINATION  ARRAY.  THE  FIRST  NIBBLE  IS  PLACED  IN  TIC  LEFT  4  BITS 

OF  THE  FIRST  BYTE.  */ 

113 

2 

DECLARE  COUNT  BYTE,  /*  NUMBER  OF  BYTES  TO  BE  RETRIEVED  */ 

SORCEIPTR  ADDRESS, 

0EST1PTK  ADDRESS; 

114 

2 

DECLARE  (SOURCE  BASED  SOURCEtPTRMlI  BYTE. 

(BEST  BASED  OESrtPTRKl)  BYTE; 

119 

2 

J  «  01 

114 

2 

COUNT -COUNT  -  It 

117 

2 

do  i  *  o  to  caw; 

lit 

3 

OESTU)  «  (SOURCE(U)  MO  OFOH)  OR  SWUSOURCEUHIM); 

119 

3 

J  •  J  ♦  21 

130 

3 

DO; 

121 

2 

DO;  /•  OF  UNPACKtUAYPT  •/ 

122 

1 

DOt  /•  OF  0NV5:  DO;  */ 

lOOUUE  HCORMATION; 

COCC  AREA  SIZE  *  040ft  10350 

VARIABLE  AREA  SIZE  *  OOIOH  UD 

HAXIMLft  STACK  SIZE  *  000ft  ft 

244  UICS  READ 
0  PROGRAM  ERROR  (S) 
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9V>  of  cun-eo  dohlation 


puh-so  cohpiler  onvmt 


200CT79  PACE  1 


ists-ir  pl/h-so  v3.  i  caviuam  of  «cau  cat 
object  n:a*i  placed  im  :Fi:tt.uRT..:w 

COWILER  INVOtED  BY!  PU130  :fi:  ONVMT.  SRC  MTE(200CT7?>  DEBUG 


ITITLEt'DNVMT') 

1  MTS  00; 

2  1  DECLARE  RHSUFAf  1534)  BYTE  PUBLIC. 

RWUFBU334I  BYfs.  PUBLIC: 

3  1  DECLARE  /»  ONV  VARIABLES  •/ 

MVtOESTtNATION  BYTE  PUBLIC. 

DNVWlSRLAYtCOCRCtnOCE  BYTE  PL'BLIC. 

/•  M>  IJUTIALIZATICW  REQUIRES  TVE  FCLLOUINO  ITEMS  BE  COHTIGUOUS  #/ 
HWMNWSPEEDI3)  BYTE  PUBLIC. 

0NVfUlND*DlRl2)  BYTE  PUBLIC, 

WWGA0UNWSPEEDI3)  BYTE  PUBLIC. 

0NVfRANGE(4)  BYTE  PUBLIC. 

WVWIACKIANGLElERfiOR 1 3 )  BYTE  PUBLIC. 

0MV*TWCK4ANGLE<3)  BYTE  PUBLIC, 

0NV4CROSS4TRACK*A?*jL£ ( 3 )  BYTE  PUBLIC. 

MV*SEARING<3>  BYTE  PUBLIC. 

0NV»TlrE»T0*G0(3>  BYTE  PUBLIC. 

I****/ 

DNVtSTATUS  BYTE  PUBLIC. 

ONVILASTtUAYPTtPTR  ADDRESS  PUBLIC. 

BWiTEfflUAYPT ( 34 )  BYTE  PUBLIC. 

ONVICKPTIOATAI  10)  STRUCTURE(DI0ITS(68)  BYTE)  PUBLIC  AT(.RfflUFB), 
MWT5TS0ATAU0)  STRXTU5£IDIGITS(48>  BYTE)  PUBLIC  AT(.R!QUFB+£80)l 

4  1  BDt  /»  MT  #/ 


WELLE  nFORHATim: 

CODE  AREA  SIZE  ■  OOOOH  00 
VARIABLE  AREA  SIZE  *  0C42H  31380 

HAXIIU1  STACK  SIZE  *  OOOOH  00 
25  LMES  READ 
0  PROGRAfl  ERROR(S) 
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DESCRIPTION  OF  ALTERNATE  DESIGNS 


The  culmination  of  current  State  of  Art  investigations  and  incorporation  of 
the  resultant  technologies  has  determined  the  present  Design  philosophy.  Al¬ 
ternate  designs  have,  however,  been  anticipated  in  the  implementation  of  cer¬ 
tain  control  functions.  These  are: 

1.  Power  Control 

2.  Manual/Automatic  Display  Brightness  Control 

3.  Display  Response  Control 

The  Area  of  Power  Control  was  not  fully  designed  to  an  end  item  configuration 
due  to  the  requirement  for  the  Control  Display  Unit  to  be  operational  in  a 
portable  configuration  and  utilizing  Standard  110V  AC  as  a  power  source.  It 
is,  therefore,  anticipated  that  power  control  implementation  studies  should 
be  completed  to  determine  Mechanical/logic  implementation  from  a  system  view. 

Bright/Dim  control  is  an  area  that,  for  suitcase  demonstrations,  was  imple¬ 
mented  in  a  straight-forward  manner,  that  is,  the  use  of  an  octal  coded  thumb¬ 
wheel  switch.  Studies  must  be  completed  to  determine  light  control  requirements 
for  cockpit  displays  so  that  appropriate  control  policies  may  be  implemented 
into  future  designs.. 

Display  response  is  less  than  optimized  due  to  the  implementation  limitations 
of  Design  funding,  program  implementation  time  constraints,  and  customer  defi¬ 
nition.  Therefore,  there  is  left  two  other  optimization  avenues  that  should 
be  considered  for  final  Design.  These  are:  Restructuring  of  the  Display  ori¬ 
entation  and  redesign  of  existing  module  design,  to  adapt  the  presently  used 
module  for  this  specific  application. 


DESCRIPTION  OF  PROPOSED  FINAL  APPROACH 


The  requirements  identified  at  this  time  that  will  allow 
transition  from  a  suitcase  demonstration  unit  into  an 
Advanced  Engineering  Development  model  are  as  follows: 

A.  Studies 

Human  Factors 
System  Integration 
Program  Loading 
System  Redundancy 
Test  Equipment 

Design  to  Unit  Production  Cost  Goal 
Power  Control  Implementation 
Display  Brightness  Control  (where,  how) 

B.  Design 

Appropriate  1553  Interface 

ADM  Electro/Mechanical  Implementation 

C .  Fabrication 

Two  Units  (ADM) 

D.  Testing 

Electrical  Verification  -  1  Unit 
Electro/Mechanical  -  1  Unit 
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1.0 


GENERAL  DI5CRIPTICN 


The  MTI-110  is  a  multiplex  uata  bus  interface  module  designed  for  aircraft 
subsystems  signal  transfer.  It  provides  a  two  way  interface  between  TTL 
logic  and  dual  redundant  twisted  pair  transmission  lines  utilizing  serial  bi¬ 
phase  data  transmission  as  specified  by  MIL-STD-  1553A  ar.d  A1IL-G-85C  13. 
The  MTI  is  capable  of  operating  on  either  of  the  two  redundant  busses  on 
command  of  the  user.  A  block  diagram  of  the  MTI-110  is  shown  in  Figure 
1.  Data  appearing  on  the  data  bus  is  received  by  the  MTI-110  and  presented 
both  in  serial  and  in  parallel  form  along  with  control  signals  and  data  va¬ 
lidity  signals.  The  receiver  parallel  output  is  available  as  3 -state  outputs 
and  can  be  enabled  in  2  -  8  bit  bytes  or  1  -  16  bit  word.  The  receiver  is 
operated  from  a  16  MHz  clock  which  is  available  internally  or  may  be  pro¬ 
vided  externally  by  the  user. 

Data  to  be  transmitted  on  the  data  bus  is  accepted  by  the  MTI-110  either  in 
serial  or  in  parallel  form  and  may  be  transmitted  on  either  of  2  data  busses. 
Although  the  MTI-110  is  designed  specifically  to  meet  MIL-STD- 1553a  which 
calls  for  a  16  bit  data  word  plus  parity,  it  can  operate  in  the  serial  mode 
with  any  word  length  as  long  as  each  word  begins  with  a  MIL-STD-  1553A 
sync  pattern  and  ends  with  a  parity  bit. 

1.  1  MECHANICAL  DESCRIPTION 

The  complete  MTI-110  module  is  shown  in  Plate  M954.  It  consists  of  two 
multilayer  printed  circuit  boards  held  together  as  a  module  by  the  use  of 
screws  and  spacers.  All  inter-board  connections  are  by  spring-type  pir. 
connectors  as  shown  in  the  disassembled  view  (Plate  M9Sc».  Standard 
flat  pack  type  integrated  circuits  are  used  throughout.  There  are  no  custom 
hybrid,  LSI  or  other  custom  circuits.  User  connections  are  by  the  use  of  62 
pins  arranged  in  a  dual  in  line  pattern.  The  complete  module  measures  3x4 
x  0.375  and  weighs  3.5  oz.  Mechanical  details  are  shown  in  Drawing  AN- 
MT  *  '001. 
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MTI  -  110  MULTIPLEX  TERMINAL  UNIT  (DISASSEMBLED) 


1.2 


TIMING  DIAGRAMS 


Detailed  relationships  among  the  various  interface  signals  involved  in  I/O 
operations  are  shown  in  the  timing  diagrams  of  Figures  2  and  3.  In  those 
diagrams  each  signal  or  group  of  signals  is  represented  by  a  horizontal  line 
with  a  raised  section.  In  the  case  of  a  control  signal  that  is  generated  at  a 
specific  time  to  control  some  particular  function,  the  raised  section  repre¬ 
sents  the  time  that  the  function  is  true.  For  signals  that  carry  binary  in¬ 
formation  such  as  the  data  I/O  line  and  the  sync  type  lines,  the  raised 
section  indicates  the  time  during  which  that  information  is  held  on  the  input 
or  output  line. 

1.  3  INPUTS  AND  OUTPUTS 

All  MTI-110  inputs  and  outputs  are  shown  in  the  pin  function  list  (Table  I). 
All  inputs  and  outputs  are  standard  TTL  compatible  except  for  those  given 
in  Table  H.  TTL  outputs  will  drive  two  standard  TTL  loads  minimum  and 
inputs  are  equivalent  to  one  low  power  Schott ky  TTL  load,  except  for  the  ex¬ 
ternal  clock  input  which  is  equivalent  to  10  low  power  Schottky  TTL  loads. 

1.4  POWER  REQUIREMENTS 

The  MTI-110  requires  three  supply  voltages:  +5  volts,  +12  volts  and  -12 
volts.  While  the  MTI-110  will  operate  with  up  to  +15  volts,  all  current 
drain  and  signal  threshold  specifications  are  based  on  the  use  of  a  +12  volt 
supply.  Current  requirements  are  as  follows: 


+5  Volts 

600  ma  max 

+12  Volts  (non-transmitting) 

30  ma  max 

(transmitting  -  long  stub) 

650  ma  max 

(transmitting  -  short  stub) 

300  ma  max 

-12  Volts 

30  ma  max 

Voltage  tolerance  is  +5%. 
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RECEIVED  DATA  TIMING 
FIGURE  2 


TRANSMITTER  TIMING  SERIAL  DATA  MODE 


TABLE  I 

MTI  110  PIN  FUNCTION  LIST 


ermlnal 

Function 

Terminal 

Function 

1 

dai  link  B  (+) 

32 

+5  volts  input 

2 

data  link  B  I-) 

33 

data  link  A  (+) 

3 

receiver  input  B  (LS+) 

34 

data  link  A  (-1 

4 

receiver  input  B  (SS) 

35 

receiver  input  A  (LS+) 

5 

data  I/O  0  (LSB) 

36 

receiver  input  A  (SS) 

6 

data  I/O  4 

37 

data  I/O  15  (MSB  1 

7 

data  I/O  2 

38 

transmitter  power  ground 

8 

data  I/O  5 

39 

data  I/O  13 

9 

data  I/O  3 

40 

transmitter  timeout 

10 

transmitter  A  select 

41 

data  I/O  10 

11 

data  I/O  1 

42 

data  I/O  8 

12 

+12  volts  input 

43 

data  I/O  11 

13 

data  I/O  6 

44 

data  I/O  9 

14 

1  MHz  clock  output 

45 

data  I/O  14 

15 

data  I/O  7 

46 

flag  output 

16 

external  clock  input 

47 

data  I/O  12 

17 

parallel  data  load  1 

48 

parallel  data  load  2 

18 

external  clock  select 

49 

data  enable  2 

19 

-12  volts  input 

50 

parity  error  output 

20 

negative  threshold  adjust 

51 

pattern  error  output 

21 

data  enable  1 

52 

enable  shutdown  input 

22 

receiver  input  B 

53 

received  NRZ  output 

23 

serial  mode  select 

54 

data  ready  output 

24 

receiver  input  A 

55 

received  clock  output 

25 

reset  input 

56 

bus  active  output 

26 

transmit  command  input 

57 

sync  detect  output 

27 

transmit  NRZ  input 

58 

receiver  input  A  (LS-) 

28 

data  request  output 

59 

received  sync  type  output 

29 

receiver  input  B  (LS-) 

60 

end  of  message  (EOM)  input 

30 

positive  threshold  adjust 

61 

31 

transmit  sync  type  input 

62 

logic  ground 

logic  ground 


TABLE  II 

MTI-UO  NCN-TTL  PEN  FUNCTIONS 


Function  Pin  Number 


data  link  B  (+)  1 

data  link  B  (-)  2 

receiver  input  B  (LS+)  3 

receiver  input  B  (SS)  4 

+12  volt*  input  12 

-12  volts  input  19 

negative  threshold  adjust  20 

receiver  input  B  22 

receiver  input  A  24 

receiver  input  B  (LS-)  29 

positive  threshold  adjust  30 

+5  volts  input  32 

data  link  A  (+1  33 

data  link  A  (-)  34 

receiver  input  A  (LS+)  35 

receiver  input  A  (SS)  36 

transmitter  power  ground  38 

receiver  input  A  (LS-)  58 

logic  ground  62 
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2.0 


DATA  LINK  INTERFACE 


The  MTI-110  includes  provisions  for  two  MIL-STD- 1553A  data  links.  Either 
or  both  data  links  may  be  connected.  Data  may  appear  on  only  one  data  link 
at  a  time.  If  only  one  data  link  is  used  the  other  must  be  terminated  with  70 
ohms  maximum.  The  MTI  is  designed  for  use  in  either  the  long  stab  or  short 
stub  configuration  as  described  by  MIL-STD-  1553A.  In  either  configuration 
external  jumpers  must  be  used  to  connect  the  receiver  input  as  shown  in  Fig¬ 
ure  4. 

Figure  5  shows  the  MTI-110  receiver  input  transformer  with  external  strapping 
options  and  stub  configurations  shown.  The  receiver  A  input  is  shown  in  the 
short  stub  configuration  and  receiver  B  is  connected  for  long  stub  operation. 
The  two  receiver  input  circuits  are  identical  and  may  be  strapped  independently 
for  either  configuration.  There  are  three  windings  on  the  MTI-110  coupling 
transformer  which  are  associated  with  the  receiver  input.  Winding  1  is  the 
input  from  the  data  link  and  windings  2  and  3  provide  the  input  to  the  receiver. 
For  MIL-STD-  1553A  short  stub  operation,  .vinding  3  provides  the  receiver 
input  and  winding  2  is  unused  as  shown  in  Figure  5A.  External  isolation  re¬ 
sistors  must  be  used  as  shown. 

For  long  stub  operation,  windings  2  and  3  are  connected  in  series  as  shown 
in  Figure  5B  and  a  MIL-STD- 1553A  data  link  coupler  must  be  used  between 
the  bus  and  the  stub.  The  data  link  coupler  (SCI  Model  DLC-10  or  equivalent) 
contains  the  isolation  transformer  and  proper  isolation  resistors  to  meet  all 
the  requirements  of  MIL-STD-1553A  for  long  stub  operation.  If  a  different 
coupling  transformer  is  used,  the  source  impedance  of  the  coupler  as  it  is 
connected  to  the  MTI  must  be  50  ohms  minimum  or  overloading  of  the  MTI 
transmitter  will  result. 


> 


NAT  I 


E22 

E4 


E  56 
E  24 


SHORT  ST'JE  OPERATION  OR  LONG 
STUB  W\TH  i:i  COUPLING  TRANSFORMER. 


I  ONG  STUB  OPERATION  WITH 

b:i  coupling  transformer. 


F\GURE  4.  RECEIVER  INPUT  EXTERNAL  STRAPPING  OP Tij\ 


CODE 
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NO 

tTMl 

A 

M 

MTM10 

OATA  LINK  A  ♦ 


RCVR  INPUT  A  (LS+I 


SHORT  STUB  (O  Ft) 

1 

E  35 

RCVR  INPUT  B  (L8+) 


RCVR  INPUT  B  (SS)  I 


WINOING  3  | 


LONG  STUB 
(1-20  FT.) 


Ml  L— STD— 1553A 
OATA  LINK  COUPLER 
(SO  MODEL  DLC-10  OR  EQUIV) 


RCVR  INPUT  B 


MIL  •  STD  -1SS3A 
DATA  BUS  — 


B.  LONG  STUB  CONFIGURATION  (RECEIVER  INPUT  B  SHOWN) 

FIGURE  5.  MTI  -  110  RECEIVER  INPUT  TRANSFORMER  CONNECTIONS 


3.0  RECEIVER  OPERATION 

The  MTI-UO  feature*  an  all-digital  biphase  receiver  design  which  provides 
high  stability  without  the  requirement  for  special  bench  alignment.  A  com¬ 
plete  description  of  user  options  and  external  connections  pertaining  to 
receiver  operation  is  provided  in  this  section. 

3.  1  EXTERNAL  CLOCK  <E16) 

The  MTI  normally  operates  from  an  internal  16  MHZ  clock  but  may  be 
operated  from  an  external  16  MHZ  clock  at  the  user's  option.  This  is  done 
by  presenting  a  16  MHZ  TTL  level  clock  to  the  external  clock  input  (E16) 
and  leaving  the  external  clock  select  input  (E1R)  open.  For  internal  clock 
operation  the  external  clock  select  input  must  be  grounded. 

3.2  RECEIVER  THRESHOLD  ADJUST  (E20,  E30) 

The  MTI  receiver  thresholds  are  factory  set  at  +0.  IV  and  -0.  IV  at  the 
detector  input,  and  these  factory  settings  are  compatible  with  MIL-STD- 
1553A.  The  threshold  points  are  available  for  external  adjustment  and  may 
be  adjusted  over  the  range  of  +0.  075V  to  ^0. 2V  by  injecting  a  current  into 
the  threshold  adjustment  node.  The  input  impedance  of  each  node  is  100 
ohms. 


3.3  RESET  (E2 5) 

A  logic  one  on  the  reset  input  sets  the  receiver  data  ready  to  zero,  turns 
off  the  transmitter  and  initializes  the  transmitter  shutdown  circuit.  A  logic 
one  should  be  applied  momentarily  to  the  reset  input  when  the  MTI  is  being 
powered  up  in  order  to  insure  proper  operation.  The  reset  should  remain 
high  until  power  lines  are  stable.  If  the  transmitter  failsafe  timer  causes 
die  transmitter  to  shut  down,  the  reset  must  be  reapplied  before  the  trans¬ 
mitter  is  operated  again.  Minimum  pulse  width  on  the  reset  input  is  100 
nanoseconds. 
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3.4 


DATA  BEADY  (E54) 


Data  ready  goes  high  after  a  word  has  been  received  on  the  data  link.  Each 
time  a  new  word  is  received  on  the  data  link  the  data  ready  line  goes  low  for  a 
period  greater  than  250  nanoseconds  and  less  than  one  microsecond  and  then 
goes  high  again.  Data  ready  remains  high  until  a  new  word  is  received. 

Data,  received  sync  type,  pattern  error,  and  parity  error  outputs  may  be 
read  at  any  time  while  data  ready  is  high. 

3.  5  RECEIVED  SYNC  TYPE  (E59) 

Received  sync  type  indicates  whether  the  received  word  was  a  command 
word  or  a  data  word.  Received  sync  type  is  low  for  a  command  word  and 
high  for  a  data  word.  Received  sync  type  may  be  read  when  data  ready  is 
high. 


3.6  DATA  ENABLES  (E21.  E49) 

The  16  receiver  output  data  lines  are  three- state.  They  are  enabled  in 
eight  bit  bytes  by  data  enable  1  and  data  enable  2.  Data  enable  1  enables 
the  least  significant  byte  and  data  enable  2  enables  the  most  significant 
byte.  A  low  on  the  enable  line  enables  the  output  lines.  The  propagation 
delay  from  enable  to  output  is  less  than  100  nanoseconds. 

3.7  PATTERN  ERROR  (E51) 

The  pattern  error  output  is  high  if  the  received  data  word  contains  a 
Manchester  coding  violation  or  an  invalid  word  length.  A  high  output 
indicates  an  error.  The  pattern  error  output  may  be  read  when  data  ready 
is  high. 


i 

*♦ 
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3.8 


PARITY  ERROR  (E50) 


The  parity  error  output  is  high  i£  the  received  data  word  contains  even  parity 
and  low  for  odd  parity.  The  parity  error  output  may  be  read  when  data  ready 
is  high. 

3.9  FLAG  AND  EOM  (E46,  E60) 

The  flag  output  must  be  connected  to  the  EOM  input  for  normal  MIL- ST  D- 
1553A  operation.  These  signals  may  be  used  in  conjunction  with  external 
circuitry  to  change  the  receiver  word  length  for  serial  data  output  only. 

Figure  6  shows  the  external  circuitry  required  to  change  the  receiver  word 
length.  Parallel  data  and  parity  sure  available  at  the  outputs  of  the  flip-flops 
shown  in  the  figure.  These  outputs  are  valid  while  the  Q  output  of  FF1  is  high. 

3. 10  SYNC  DETECT  (E57) 

The  sync  detect  output  goes  high  when  a  valid  sync  pattern  is  detected  on 
tiie  data  link.  The  sync  detect  output  goes  low  again  when  the  first  half  of 
a  sync  pattern  is  detected  or  when  the  data  link  becomes  inactive. 

3.11  BUS  ACTIVE  (E56) 

Bus  active  goes  high  250  nanoseconds  after  a  signal  appears  on  the  data  link 
and  goes  low  one  microsecond  after  the  data  link  goes  inactive. 

3.  12  RECEIVED  NRZ  AND  RECEIVED  CLOCK  (E53.  E55) 

The  received  NR  Z  output  contains  the  serial  NR  Z  data  and  parity.  The 
received  clock  output  is  a  17  pulse  clock  output  which  is  derived  from  the 
received  biphase  data.  The  NRZ  data  bits  may  be  read  on  the  rising  edge 
of  the  received  clock. 


4, 0 


TRANSMITTED  OPERATION 


The  MTI-110  transmitter  allow*  operation  on  either  of  two  MIL-STD-  1553A 
data  busses.  Two  complete  transformer -coupled  interfaces  are  provided, 
allowing  the  MTI  to  transmit  on  either  bus  at  the  command  of  the  user.  A 
complete  description  of  user  options  and  external  connections  pertaining  to 
transmitter  operation  is  provided  in  this  section. 

4.  I  TRANSMITTER  A  SELECT  (E10) 

The  MTI  transmitter  is  capable  of  transmitting  on  either  of  two  data  links. 
When  the  transmitter  A  select  input  is  high  the  data  will  be  transmitted  on 
data  link  A  and  when  the  transmitter  A  select  input  is  low  data  will  be  trans¬ 
mitted  on  data  link  B. 

4.2  ENABLE  SHUTDOWN  (E52) 

The  MTI  incorporates  a  timer  which  times  all  transmissions.  When  the 
enable  shutdown  input  is  high  the  MTI  transmitter  will  be  shutdown  auto¬ 
matically  if  the  timer  senses  a  transmission  period  exceeding  672  micro¬ 
seconds.  A  reset  input  must  be  applied  in  order  to  reset  the  shutdown 
circuit  to  allow  subsequent  transmissions  to  occur.  If  the  enable  shutdown 
input  is  low  the  timer  will  not  shutdown  the  transmitter. 

4.3  TRANSMITTER  TIMEOUT  (E40) 

The  transmitter  timeout  output  is  a  positive  pulse  which  occurs  when  the 
transmitter  timer  senses  that  the  MTI  has  transmitted  continuously  for 
more  than  672  microseconds.  Minimum  pulse  width  on  this  output  is  100 
nanoseconds. 
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4.4 


SERIAL  MODE  SELECT  (E23) 


The  MTI  transmitter  will  accept  data  in  either  serial  or  parallel  form. 

When  the  serial  mode  select  input  is  high  the  MTI  transmitter  accepts 
serial  NRZ  data  from  the  transmit  NRZ  input.  When  the  serial  mode  select 
input  is  low  the  MTI  transmitter  accepts  parallel  data  from  the  16  data  I/C 
lines. 

4.  5  TRANSMIT  COMMAND  (EZ6) 

The  MTI  transmitter  is  turned  on  by  the  transmit  command  input.  A  high 
input  turns  the  transmitter  on  and  a  low  input  turns  the  transmitter  off. 

For  proper  operation  the  transmit  command  must  go  high  within  0  to  300 
nanoseconds  after  the  rising  edge  of  the  MTI  one  megahertz  clock  output. 

The  transmission  begins  on  the  falling  edge  of  the  one  meeahertz  clock  out¬ 
put.  When  the  transmitter  is  operating  in  the  parallel  data  input  mode  the 
TR  command  must  remain  high  until  the  last  word  to  be  transmitted,  then 
it  must  go  low  while  the  MTI  data  request  output  is  high.  The  transmission 
will  then  be  terminated  at  the  end  of  the  current  word.  When  the  transmitter  is 
operating  in  the  serial  data  input  mode  all  transitions  of  the  transmit  com¬ 
mand  must  occur  within  0  to  300  nanoseconds  after  the  rising  edge  of  the 
MTI  one  megahertz  clock  output.  The  transmit  command  is  required  to  go 
low  during  the  last  bit  period  (parity)  of  each  word.  During  the  last  word 
to  be  transmitted  the  TR  command  goes  low  at  the  beginning  of  the  last  bit 
period  and  remains  low.  The  word  length  of  the  transmitted  message  in 
the  serial  data  input  mode  is  determined  by  the  transmit  command  input. 

4.6  TRANSMIT  SYNC  TYPE  (E31) 

The  transmit  sync  type  input  determines  the  polarity  of  the  sync  pattern  of 
each  word  transmit  ced  by  the  MTL  When  the  transmit  sync  type  input  is  high  a 
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command  sync  pattern  will  be  generated  and  when  it  is  low  a  data 

pattern  will  be  generated.  The  sync  type  information  must  be  present  on 

the  transmit  sync  type  input  during  the  time  that  the  data  request  output  is  low. 

4.7  PARALLEL  DATA  LOAD  1  AMD  2  (E17.  E48) 

In  the  parallel  date  input  mode  the  data  present  on  the  16  I/C  data  lines  is 
loaded  into  the  MTI  transmitter  innut  register  in  8  bit  bytes  by  the  parallel 
data  load  inputs.  Data  is  loaded  nr.  the  rising  edge  of  each  parallel  load  in¬ 
put.  The  data  must  be  present  100  nanoseconds  before  the  rising  edge 
occurs  and  must  remain  until  10  nanoseconds  after  th»  edge  occurs.  Pa¬ 
rallel  data  load  1  loads  the  least  significant  byte  of  data  and  parallel  data 
load  2  loads  the  moat  significant  byte  of  data.  The  ;ir-t  word  of  a  message 
to  be  transmitted  must  be  loaded  before  the  transmit  command  goes  high. 

All  succeeding  words  are  loaded  during  the  time  when  the  data  request  out¬ 
put  is  high.  One  word  is  loaded  during  each  high  interval  of  the  data  re¬ 
quest  output. 


4.8  TRANSMIT  NR Z  (E2 7) 

When  the  MTI  transmitter  is  operating  in  the  serial  data  input  mode  the 
serial  data  and  parity  to  he  transmitted  must  '>**  present  at  the  transmit 
NRZ  input.  The  first  bit  of  each  data  word  to  be  transmitted  is  taken  by  the 
transmitter  on  the  rising  edge  of  the  data  request  output.  All  succeeding  1  its 
of  the  word  are  taken  on  succeeding  rising  edges  of  the  one  megahertz  clock 
output.  Each  bit  of  data  to  be  transmitted  mud  be  present  ICO  nanoseconds 
before  the  edge  on  which  it  is  taken  and  must  remain  for  10  nanoseconds 
after  the  edge  occurs. 

4.9  ONE  MEGAHERTZ  CLOCK  (E  14) 

The  one  megahertz  clock  output  is  provided  for  the  user  for  input  data  and 
control  input  synchronisation.  Its  use  is  explained  in  the  appropriate  para- 

graphs. 
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4.  10  DATA  REQUEST  (E28) 

All  data  must  be  loaded  into  the  MTI  transmitter  when  the  data  request  is 
high.  Use  of  the  data  request  output  is  explained  ir>.  more  detail  in  the 
appropriate  paragraphs. 


21 


9 


1  August  1979 


ATTACHMENT  A 

ENGINEERING  DESIGN  TEST  PLAN 


ECOM  CDU  DISPLAY  AND  CONTROL  FORMATS 


The  final  formats  for  the  ECOM  CDU 
are  detailed  in  this  document. 


USC  OR  DISCLOSURE  Of  THIS 
DATA  IS  SUBJECT  TO  THE 
RESTRICTION  ON  THE  TITLE 
RAGE  OR  THIS  DOCUMENT 


Primary  Format 

The  Primary  Format  for  the  CDU  is  shown  in  Figure  1.  This  format  is  both  a  control 
and  display  format  in  that  each  piece  of  equipment  displayed  in  this  format  can  be 
selected  for  use  by  pressing  the  equipment  designator  (i.e. ,  [VHF]  )  which  is  a 
switch  point  and  will  change  the  display  from  the  Primary  Format  display  to  the 
Submode  Display  for  the  selected  equipment. 

The  status  of  each  piece  of  equipment  will  be  shown  by  three  methods.  Equipments 
that  have  not  reported  a  malfunction  and  are  considered  operable,  will  have  the  fre¬ 
quency  they  are  tuned  to  displayed  in  line  with  the  designator  in  the  case  of  com¬ 
munications  equipment  and  the  mode  they  are  in,  in  the  case  of  DNV  and  IFF 
equipment. 

If  the  equipment  is  active  and  in  use,  an  asterisk  will  be  displayed  between  the 
equipment  designator  and  the  frequency  or  mode  as  illustrated  for  the  VHF,  DNV 
and  IFF  in  Figure  I. 

If  the  equipment  is  inoperative  by  failing  its  internal  test  or  is  not  installed,  a  [FAIL] 
will  be  displayed  in  place  of  the  frequency  or  mode  as  shown  for  ADF  in  Figure  1. 

'NO  KIT'  will  be  displayed  with  the  IFF,  if  a  KIT  is  not  installed  or  is  faulty. 

hi  all  cases,  selection  of  a  radio  or  other  unit,  by  pressing  the  equipment  designator 
will  display  the  Submode  format  for  that  equipment  as  follows: 


Table  I 


Select 

Display 

VHF 

Figure  2 

UHF 

Figure  3 

ADF 

Figure  4 

CSV 

Figure  5 

DNV 

Figure  6 

IFF 

Figure  7 

USE  on  DISCLOSURE  OP  THIS 
DATA  IS  SUBJECT  TO  THE 
RESTRICTION  ON  THE  TITLE 
PAPE  OP  THIS  DOCUMENT 
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Ten  fixed  switches  will  be  provided  below  the  display  area  of  the  CDU.  These 
switches  will  have  the  following  function: 


j  pri  J  -  Activation  of  this  switch  will  return  the  display  to  the  Primary  Format, 
Figure  1. 


IFF  EMER 


This  switch  is  guarded  and  requires  a  sequence  of  operation  to 
activate  the  function  as  follows:  First,  press  [IFF  EMER]  ,  then  [GARD]  ,  and 
then  [IFF  EMER]  again  to  select  the  IFF  emergency  function. 


ZERO  CODE 


-  This  switch  is  guarded  and  requires  a  sequence  of  operation  to 


activate  the  function  as  follows:  First,  press  [ZERO  CODE]  ,  then  [GARD]  , 
and  then  [ZERO  CODE]  again,  to  select  this  function. 


-  The  ON  switch  is  used  to  turn  on  the  CDU  and  each  equipment  on  as  follows: 


A.  With  the  CDU  in  the  OFF  state,  activation  of  [ON]  will  apply  power  to  the 
CDU  and  display  the  Primary  Format,  Figure  1. 


B.  With  the  CDU  on  and  the  Primary  Format  displayed,  activation  of  an  equipment 
designator  ( [VHF]  etc. )  will  display  the  Submode  Format  for  the  equipment 
as  shown  in  Table  1.  Activation  of  [ON]  after  activation  of  equipment 
designator  will  then  turn  the  equipment  on,  with  the  exception  of  the  IFF. 

The  IFF  is  put  into  the  [STBY]  or  [NORM]  operation  by  selection  of  either 
respective  switch. 


OFF 


-  The  [OFF]  switch  is  used  to  turn  the  CDU  and  each  equipment  off  as 


follows:  With  the  CDU  on  and  the  Primary  Format  displayed,  selection  of  an  equip¬ 
ment  designator  will  display  the  equipment  Submode  Format  shown  in  Table  1  and 
then  selection  of  [OFF]  ,  will  turn  the  equipment  off.  The  displayed  asterisk  symbol 
(ON  indicator)  will  be  erased  from  the  Primary  Format.  Each  of  the  equipments, 
with  the  exception  of  the  CDU  and  the  IFF,  will  be  turned  off  in  this  manner.  The 
CDU  and  die  IFF  will  be  turned  off,  using  the  guarded  switch  function  as  follows: 


A.  IFF  OFF  -  Select  [IFF]  from  the  Primary  Format,  (IFF  Submode  Format 
will  display),  activate  [OFF]  ,  then  [GARD]  ,  then  [OFF]  .  This  will 
turn  the  IFF  subsystem  off. 
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B.  CPU  OFF  -  With  the  Primary  Format  displayed,  select  [  OFF  ] ,  then 
[  GAUD  ]  ,  and  then  [  OFF  ]  again  to  turn  the  CPU  off. 


SUB 


MOPE 


-  Activation  of  [mode]  wU1  return  the  disPlay  to  the  Submode  Format 

[SUB  1 

mode] 

when  the  Primary  Format,  or  any  Submode  Format  (Table  1)  is  displayed,  will  have 
no  effect  on  the  display  or  equipment. 


RPLY 


-  Activation  of  the  [  RPLY  ]  switch  will  send  a  message  to  the  IFF  subsystem 


via  the  1553A  bus  interface.  It  will  have  no  effect  on  the  display. 


GARP 


LAST 


-  The  [GARD  ]  switch  is  used  as  described  previously. 

-  This  switch  is  used  in  the  communications  formats  and  DNV  formats.  When 
activated  with  a  VHF  or  UHF  format  displayed,  it  will  change  the  frequency  selection 
from  the  present  active  frequency  to  the  prior  active  frequency.  When  activated  with 
the  PNV  Formats,  the  last  Format  used  will  be  displayed. 


STEP 


-  This  switch  is  active  in  the  preset  channel  format, TGT  Format  and  Check¬ 


point  Formats  only.  Activation  of  [STEP]  will  cause  the  next  channel  number  and 
frequency  to  be  available  for  change  if  needed. 
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Figure  2.  VHF  Submode 


ON  or  OFF  will  display  in  second  line  under  VHF  for  indication  of  ON/OFF  status. 

Switch 

Format 

From: 

VHF 

Figure  1 

To: 

[chan  sel] 

Figure  2.  A 

[MAN  FREQ] 

Figure  2.B 

[PRST  CHAN] 

Figure  2.  C 

[STAT  PAGE] 

Figure  2.  D 

[t/r 

Figure  2 

T/R  will  display  in  top  line 

[T/R  +  GARD] 

Figure  2 

T/R  +  G  will  display  on  second 
line 

[hom] 

Figure  2 

HOM  will  display  in  top  line 

[RETRAN] 

Figure  2 

RETRAN  will  display  in  top  line 

[TEST] 

Figure  2 

OK  or  FAIL  will  display  on 
second  line 
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CH-4 


42.75 


CH-  7 


42.95 


CHAN 
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s  m 
0  0 
0  0 
0  0 


Figure  2.  A.  VHF  Channel  Select  Format 


Switch 


From:  [CHAN  SEL] 

To:  [E] 


Format 

Figure  2 
Figure  2 


This  format  is  used  to  select  the  active  channel  in  the  following  manner: 

1.  Selection  of  a  numeric  from  the  keyboard  will  display  that  numeric  in  the 
legend  line  following  CH-.  The  associated  frequency  stored  in  that  channel 
if  any  will  appe&r  in  the  legend  line. 

2.  [C  ]  may  be  used  to  clear  the  entry  for  corrective  purposes. 

3.  Selection  of  [E]  will  enter  the  change  indicated  in  the  legend  line  to  the  radio 
and  switch  the  display  back  to  Figure  2  where  the  selected  channel  number  and 
its  associated  frequency  are  displayed  in  the  first  line.  Legal  entries  from 
this  format  are  0  through  9.  [CHAN  SEL] switch  is  not  active  in  this  format. 
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300 

Figure  2.  B.  Manual  Frequency  Select  Format 


Switch  Format 

From:  MAN  FREQ  Figure  2 

[FREQ  SEL] 

To:  [E]  Figure  2 

This  format  is  used  to  change  or  enter  the  active  frequency  in  the  following  manner: 

1.  A  frequency  is  entered  in  the  legend  line  by  selecting  from  the  keyboard.  Legal 
entries  are  from  30. 00  to  75. 95. 

2.  For  eorrectiva  purposes,  a  single  activation  of  [c]  will  clear  the  last  entered 
digit  and  a  double  activation  will  clear  all  of  the  entered  numerics. 

3.  Activation  of  fcj  will  place  the  entered  frequency  into  use  and  return  the 
display  to  the  VHF  Submode  Format,  Figure  2.  The  [MAN  FREQ]  switch 
is  not  active  in  this  format. 
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VHF 

ON 

T/F 
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42.75 

CH-_  F-_ 

• 

3  B  0 

PRST 

CHAN 

Z]  □  H3 

3  □  El 

30B 

Figure  2.C.  Preset  Channel  Select 
Switch  Format 

From:  [PRST  CHAN]  Figure  2 

To:  [E]  Figure  2 

This  format  is  used  to  preassign  frequencies  to  channels  in  the  following  manner: 

1.  A  channel  number  0  -  9  is  entered  in  the  legend  line  by  selecting  from  the 
keyboard.  The  associated  frequency,  if  any,  will  also  appear  in  the  legend 
line. 

2.  The  frequency  to  be  assigned  to  the  channel  is  next  entered  by  use  of  the  key¬ 
board.  LegaLentries  are  from  30. 00  to  75. 95. 

3.  For  corrective  purposes,  a  single  action  of  [C]  will  clear  the  last  entered 
digit  and  a  double  activation  will  clear  all  of  the  entered  numerics. 

4.  Activation  of  [E]  will  place  the  channel  assignment  in  memory  and  return 

to  this  page  with  the  next  channel  digit  displaced  in  the  legend  line.  It  will 
continue  to  step  after  each  entry.  Selecting  [PRI]  or  f  SET  1  will  return  the 
display  to  its  respective  condition.  (.MODE  J 

5.  The  channel  with  its  assigned  frequency  will  be  displayed  on  the  Preset 
Channel  Format,  Figure  2.D,  when  that  format  is  displayed.  [PRST  CHAN] 
is  not  active  in  this  format. 
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VHF  CHAM  STATUS 

1/2 

0 

42.73  3  * 

42.75 

1 

4 

31.25 

2 

5 

Figure  2.  D. 

Stat  Page 

Switch 

Format 

From: 

[STAT  PAGE] 

Figure  2 

To: 

Othru  9 

Figure  2.0 

This  format  is  primarily  a  review  or  status  display  of  the  preset  channels.  An 
active  channel  is  indicated  by  the  asterisk  symbol.  A  channel  can  be  selected  for 
re -assignment  in  the  following  manner: 

1.  Select  channel  for  re-assignment  by  pressing  on  channel  legend. 

2.  Manual  frequency  select  format.  Figure  2.B  will  display  with  the  selected 
channel  and  it's  associated  frequency,  if  any,  displayed  in  the  legend  line. 

3.  A  new  assignment  may  be  made  by  entering  a  new  frequency  from  the  key¬ 
board.  The  channel  entry  area  in  the  legend  line  will  not  be  changeable  when 
accessed  from  the  [STAT  PAGE]  Format. 
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Figure  2.  E.  Stat  Page 
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UHF  CH-6  118.315 

OFF  T/R 


CHAN 

SEL 
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PAGE 
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SQL 
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TEST 
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ON 

TONE 

Figure  3.  UHF  Submode  Format 


Switch  Format 


From: 

To: 


UHF 

Figure 

CHAN  SEL 

Figure  3. A 

MAN  FREQ 

Figure  3.B 

PRST  CHAN 

Figure  3.  C 

STAT  PAGE 

Figure  3.D 

T/R 

Figure  3 

T/R  +  GARD 

Figure  3 

ADF 

Figure  3 

GARD 

Figure  3 

SQL  ON 

Figure  3 

SQL  OFF 

Figure  3 

TONE 

(Momentary) 

Figure  3 

T/R  will  display  in  first  line 
T/R  &  GARD  will  display  in  first 
line 

ADF  will  display  in  first  line 
GARD  will  display  in  first  line 
SQL  will  display  in  second  line 
SQL  will  be  erased  from  second 
line 

A  tone  will  be  heard  in  the  headset. 
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Figure  3.  A.  UHF  Channel  Select  Format 


Switch  Format 

From:  [CHAN  SEL]  Figure  3 

To:  [E]  Figure  3 

This  format  is  used  to  select  an  active  channel  in  the  following  maimer: 

1.  Legal  entries  for  this  mode  are  0  thru  9. 

2.  [C]  may  be  used  to  clear  the  entry  for  corrective  purposes. 

3.  Selection  of  [E  J  will  enter  the  change  indicated  in  the  legend  line  to  the  radio 
and  switch  tfcfe  display  back  to  Figure  3  where  the  selected  channel  number 
and  it's  associated  frequency  is  displayed  in  the  first  line.  [CHAN  SEL] 
switch  is  not  active  in  this  format. 

4.  Operation  in  this  mode  U  the  same  as  that  shown  on  page  6,  Figure  2.  A  for 
VHF  channel  select. 
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30B 

Figure  3.B.  UHF  Frequency  Select  Format 
Switch  Format 


From:  (MAN  FREQ]  Figure  3 

To:  [e]  Figure  3 

This  format  is  used  to  select  frequencies  in  the  following  manner. 

1.  A  frequency  is  entered  in  the  legend  line  by  selecting  from  the  keyboard. 

Legal  entries  are  116.000  to  149.975 

2.  A  single  activation  of  [c]  will  clear  the  last  entered  number  and  a  double  acti¬ 
vation  will  diear  all  of  the  entered  numerics  for  corrective  purposes. 

3.  Activation  of  [E]  will  place  the  entered  frequency  in  use  and  return  the  display 
to  the  UHF  Submode  Format,  Figure  3.  [  MAN  FREQ]  Switch  is  not  active  in 
this  format. 

4.  UHF  frequency  selection  is  the  same  as  VHF  frequency  selection  shown  on 

page  8. 
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Figure  3,  C.  Preset  Channel  Format 


Switch 


Format 


From:  [PRST  CHAN]  Figure  3 

To:  [E]  Figure  3 

This  format  is  used  to  pre -assign  channels  to  frequencies  in  the  following  manner: 


1.  A  channel  number  0  -  9  is  entered  in  the  legend  line  by  selecting  from  the 
keyboard.  The  associated  frequency,  if  any,  will  also  appear  in  the  legend 
line. 

2.  The  frequency  to  be  assigned  to  the  channel  is  next  entered  by  use  of  the  key¬ 
board.  Legal  entries  are  from  30. 00  to  75. 95. 

3.  For  corrective  purposes,  a  single  action  of  [  C  ]  will  clear  the  last  entered 
digit  and  a  double  activation  will  clear  all  of  the  entered  numerics. 

4.  Activation  of  [E]  will  place  the  channel  assignment  in  memory  and  return 

to  this  page  with  the  next  channel  digit  displaced  in  the  legend  line.  It  will 
continue  to  step  after  each  entry.  Selecting  [PHI]  or  f  SUB  1  will  return  the 
display  to  its  respective  condition.  IMODE  I 

5.  The  channel  with  its  assigned  frequency  will  be  displayed  on  the  Preset 
Channel  Format,  Figure  2.D,  when  that  format  is  displayed.  [PRST  CHAN] 
is  not  active  in  this  format. 


8. 


VHF  preset  channel  operations  are  the  same  as  those  used  on  VHF 
fleeced ure  shown  on  page  8. 
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Figure  3.D.  Stat  Page 


Switch 

Format 

From: 

[STAT  PAGE] 

Figure  3 

To: 

CH-0  thru  CH-9 

Figure  3.D 

This  format  is  primarily  a  review  or  status  display  of  the  preset  channels.  The 
active  channel  is  indicated  by  the  asterisk  symbol.  A  channel  can  be  selected  for 
re -assignment  in  the  following  manner: 

1.  Select  channel  for  re -assignment  by  pressing  on  channel  legend. 

2.  Manual  frequency  select  format.  Figure  3.B  will  display  with  the  selected 
channel  and  its  assigned  frequency,  if  any,  displayed  in  the  legend  line. 

3.  A  new  assignment  may  be  made  by  entering  a  new  frequency  from  the  keyboard. 
The  channel  entry  area  in  the  legend  line  will  not  be  changeable  when  accessed 
from  the  [STAT  PAGE]  Format. 

4.  This  status  page  will  be  displayed  on  two  pages.  Use  step  and  last  to 
sequence. 
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Figure  4. 

ADF  Submode  Format 

Switch 

Format 

From: 

ADF 

Figure  1 

To: 

CHAN 

Figure  4.  A 

MAN  FREQ 

Figure  4.B 

PRST  CHAN 

Figure  4.  C 

STAT  PAGE 

Figure  4.  D 

RCVR 

Figure  4 

AUTO  ADF 

Figure  4 

MAN  ADF 

Figure  4 

VCE 

Figure  4 

CW 

Figure  4 

TEST 

Figure  4 

Activation  of  any  one  of  three  mutually  exclusive  switches  [RCVR],  [AUTO  ADF] 
and  [MAN  ADFj  will  display  in  the  second  line  in  the  mode  display. 

Activation  of  any  one  of  three  mutually  exclusive  switches  [VCE],  [CW]  and 
[TEST]  will  display  in  the  second  line  of  the  display. 

[VCE]  allows  the  ADF  to  be  used  as  an  AM  receiver. 

[cw]  allows  the  ADF  to  be  used  as  a  CW  receiver. 

[TEST]  will  slew  die  ADF  indicator  180*.  Test  is  an  automatic  10  second  duration. 
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Figure  4.  A. 

Channel  Select  Format 

Switch 

Format 

From: 

[CHAN  sel] 

Figure  4 

To: 

M 

Figure  4 

This  format  is  used  to  select  an  active  channel  in  the  following  manner: 

1.  Selection  of  a  numeric  from  the  keyboard  will  display  that  numeric  on  the 
legend  line,  or  numeric  [l]  and  [9].  The  associated  frequency  stored  in 
that  channel  will  then  appear  in  the  legend  line. 

2.  [c]  may  bejased  to  clear  the  entry  for  corrective  purposes. 

3.  Selection  of  [e]  will  enter  the  change  indicated  in  the  legend  line  to  the  radio 
and  switch  the  display  back  to  Figure  4  where  the  selected  channel  number 
and  its  associated  frequency  is  displayed  in  the  first  line.  Legal  entries  from 
this  format  are  0  thru  9.  [CHAN  SEL]  switch  is  not  active  in  this  format. 

4.  Procedure  to  be  similar  to  those  shown  on  pages  6,  11,  16. 
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Switch  Format 

From:  MAN  FREQ  Figure  4 

To:  E  Figure  4 

This  format  is  used  to  select  frequencies  in  the  following  maimer: 

1.  A  frequency  is  entered  in  the  legend  line  by  selecting  from  the  keyboard.  Legal 
entries  are  100  KHZ  to  3000  KHZ. 

2.  A  single  activation  of  [c]  will  clear  the  last  entered  number  and  a  double 
activation  will  clear  all  of  the  entered  numerics  for  corrective  purposes. 

3.  Activation  of  [E]  will  place  the  entered  frequency  in  use  and  return  the 
display  to  the  ADF  Submode  Format,  Figure  4.  [MAN  FREQ]  switch  is 
not  active  in  this  format. 
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Figure  4.  C.  Preset  Channel 


Switch  Format 

From:  [PRST  CHAN]  Figure  4 

To:  I  Figure  4 

This  format  la  used  to  pre-assign  channels  to  frequencies  in  the  following  manner: 


1.  A  skaal  somber  0  -  9  is  entered  in  the  legend  line  by  selecting  from  the 
ksyfcuard.  The  associated  frequency,  if  any,  will  also  appear  in  the  legend 

line. 


2. 

3. 

4. 


S. 


8. 


The  frequency  to  be  assigned  to  the  channel  is  next  entered  by  use  of  the  key¬ 
board.  Legal  entries  are  from  30. 00  to  75. 95. 

For  corrective  purposes,  a  single  action  of  [c]  will  clear  the  last  entered 
digit  and  a  double  activation  will  clear  all  of  the  entered  numerics. 

Activation  of  [E]  will  place  the  channel  assignment  in  memory  and  return 
to  this  page  with  the  next  channel  digit  displaced  in  the  legend  line.  It  will 
oothme  to  step  after  each  entry.  Selecting  [PRI]  or  [~  SUB  1  will  return  the 
display  to  its  respective  condition.  LMODE . 

The  channel  with  its  assigned  frequency  will  be  displayed  on  the  Preset 
Channel  Format,  Figure  2.D,  when  that  format  is  displayed.  [PRST  CHAN] 
is  not  active  in  this  format. 

Procedures  are  similar  to  those  shown  on  pages  8,  12  &  23. 

use  OS  DISCLOSURE  OP  THIS 
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Figure  4.0.  Stat  Page 

Switch  Format 

From:  STAT  PAGE  Figure  4 

To:  0  thru  9  Figure  4.  B 

This  format  is  primarily  a  review  or  status  display  of  the  preset  channels.  The 
active  channel  is  indicated  by  the  asterisk  symbol.  A  channel  can  be  selected  for 
re -assignment  in  the  following  manner: 

1.  Select  channel  for  re-assignment  by  pressing  on  channel  legend. 

2.  Frequency  selection  format,  Figure  4.  B  will  display  with  the  selected  channel 
and  its  assigned  frequency,  if  any,  displayed  in  the  legend  line. 

3.  A  new  assignment  may  be  made  by  entering  a  new  frequency  from  the  keyboard. 
The  channel  entry  area  in  the  legend  line  will  not  be  changeable  when  accessed 
from  the  Preset  Channels  Format. 
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PAGE 

MB 

VOL 

4 

MB 

HI 

NAV 

VOL 

TEST 

MB 

LO 

L 

Figure  5.  CNV  Submode  Format 


From: 

To: 


Switch  Format 


CNV 

Figure  1 

CHAN  SEL 

Figure  5.  A 

MAN  FREQ 

Figure  5.B 

PRST  CHAN 

Figure  5.C 

STAT  PAGE 

Figure  5.D 

MB  VOL 

Figure  5 

MB  HI 

Figure  5 

MB  LO 

Figure  5 

NAV  VOL 

Figure  5 

TEST 

Figure  5 

[MB  Hi]  -  Activation  of  [MB  Hi]  will  place  the  receiver  in  the  marker  beacon 
high  sensitivity  mode_and  display  "MB  HI"  in  the  second  line  of  the  display. 

[MB  LO]  -  Activation  of  [MB  LO]  will  place  the  receiver  in  the  marker  beacon 
low  sensitivity  mode  and  display  "MB  LO"  in  the  second  line  of  the  display. 

[TEST]  -  External  test  equipment  is  needed  and  the  test  indications  are  displayed 
on  external  equipment.  This  is  a  momentary  switch. 


[MB  VOL]  -  Selection  of  [MB  VOL]  will  allow  control  of  the  volume  by  use  of  the 
up  or  down  arrow  symbol  keys. 

[NAV  VOL]  -  Selection  of  [NAV  VOL]  will  allow  control  of  the  volume  by  use  of 
the  up  or  down  arrow  symbol  keys* 

f 
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Figure  5.  A.  Channel  Select  Format 


Switch  Format 

From:  CHAN  SEL  Figure  5 

To:  E  Figure  5 

This  format  is  used  to  select  an  active  channel  in  the  following  manner: 

1.  Selection  of  a  numeric  from  the  keyboard  will  display  that  numeric  in  the 
legend  line  following  CH- .  The  associated  frequency  if  stored  in  that  channel 
will  appear  in  the  legend  line. 

2.  [c]  may  be  ueed  to  clear  the  entry  for  corrective  purposes. 

3.  Selection  of  [e]  will  enter  the  change  indicated  in  the  legend  line  to  the  radio 
and  switch  the  display  back  to  Figure  5  where  the  selected  channel  number 
and  it's  associated  frequency  is  displayed  in  the  first  line.  Legal  entries 
from  this  format  are  0  through  9.  [CHAN  SZL]  switch  is  not  active  in  this 
format. 

4.  Procedures  are  similar  to  those  shown  on  pages  6,  11,  16. 

use  on  otscLoauns  os  this 
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CNV 
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CH-4 

118.35 

MB-HI 

F-  _ 

• 

_lI  LlI  Lil 

MAN 

FREQ 

3  0  0 

0  0  0 

0  0  0 

Figure  5.  B.  Frequency  Select  Format 
Switch  Format 


From:  MAN  FREQ  Figure  5 

To:  E  Figure  5 

This  format  is  used  to  select  frequencies  in  the  following  manner: 

1.  A  frequency  is  entered  in  the  legend  line  by  selecting  from  the  keyboard. 
Legal  entries  are  108.00  MHz  to  117.95  MHz. 

3.  A  single  actuation  of  [c]  will  clear  the  last  entered  number  and  a  double 
activation  will  dear  all  of  the  entered  numerics  for  corrective  purposes. 

3.  Activation  of  [e]  will  place  the  entered  frequency  in  use  and  return  the 
display  to  the  CNV  Submode  Format,  Figure  5.  The  [MAN  FREQ]  switch 
is  not  active  in  this  form. 
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CNV 
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118.35 

MB  HI 

CH- _ 

F- . 

j_l  Ld  LlI 

PRST 

CHAN 

300 

3  S  □ 

3  □  E 

Figure  5.C.  Preset  Channel  Format 
Switch  Format 

From:  PRST  CHAN  Figure  5 

To:  NUMERIC  +  E  Figure  5 

This  format  is  used  to  pre-assign  channels  to  frequencies  in  the  following  manner. 

1.  A  channel  number  0  -  9  is  entered  in  the  legend  line  by  selecting  from  the 
keyboard.  The  associated  frequency,  if  any,  will  also  appear  in  the  legend 
line. 

2.  The  frequency  to  be  assigned  to  the  channel  is  next  entered  by  use  of  the  key¬ 
board.  Legal  entries  are  from  30. 00  to  75. 95. 

m 

3.  For  corrective  purposes,  a  single  action  of  [  C  ]  will  clear  the  last  entered 
digit  and  a  double  activation  will  clear  all  of  the  entered  numerics. 

4.  Activation  of  [E]  will  place  the  channel  assignment  in  memory  and  return 

to  this  page  with  the  next  channel  digit  displaced  in  the  legend  line.  It  will 
continue  to  step  after  each  entry.  Selecting  [PRl]  or  f  SUB  1  will  return  the 
display  to  its  respective  condition.  L  MODEJ 

5.  The  channel  with  its  assigned  frequency  will  be  displayed  on  the  Preset 
Channel  Format,  Figure  2.0,  when  that  format  is  displayed.  [PRST  CHAN] 
is  not  active  in  this  format. 
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CNV  CHAN  STATUS 


0  5 

1  6 

2  7 

3  8 

4  9 

Figure  5.  D.  Sfcat  Page 

Switch  Format 

From:  [STAT  PAGE]  Figure  5 

To:  0  thru  9  Figure  5.  b 


This  format  is  primarily  a  review  or  status  display  of  the  preset  channels.  The 
active  channel  is  indicated  by  the  asterisk  symbol.  A  channel  can  be  selected  for 
re -assignment  in  the  following  manner. 

1.  Select  channel  for  re -assignment  by  pressing  on  channel  legend. 

2.  Frequency  selection  format.  Figure  5.  B  will  display  with  the  selected  channel 
and  it's  assigned  frequency,  if  any,  displayed  in  the  legend  line. 

3.  A  new  assignment  may  be  made  by  entering  a  new  frequency  from  the  keyboard. 
The  channel  entry  area  in  the  legend  line  will  not  be  changeable  when  accessed 
from  the  Preset  Channels  Format. 
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DNV  NAV  CKPT 1 

ON 


PP  15  SUP  1417  8409 


FLY 

TO 

CKPT 

BKUP 

NAV 

STAT 

NEXT 

CKPT 

UTM 

L/L 

CKPT 

STAT 

TGT 

UP 

DATE 

TEST 

TGT 

STAT 

Figure  6.  DNV  Submode  Format 


Switch 

Format 

From: 

DNV 

Figure  1. 

To: 

FLY  TO  +  CKPT 
or  TGT 

Figure  6A 

CKPT 

Figure  6B 

NAV  STAT 

Figure  6D 

NEXT  CKPT 

(See  below) 

BKUP  NAV 

Figure  6F 

CKPT  STAT 

Figure  6G 

TGT 

Figure  6C 

UP  DATE 

Figure  6H 

TEST 

(See  below) 

.TGT  STAT 

Figure  61 

Activation  of  [NEXT  CKPT]  will  increment  the  FLY  TO  checkpoint  number  by  one 
and  all  data  will  now  be  referenced  to  the  new  checkpoint  number. 

Activation  of  [TEST]  will  display  a  momentary  message  in  the  legend  line  of  the 
display.  "OK"  for  no  failure  and  "FAIL"  for  a  failure. 

Activation  of  [L/L]  or  [UTM]  will  present  information  in  lat  long  or  UTM 
coordinates. 
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USE  OR  DISCLOSURE  OF  THIS 
OATA  IS  SUBJECT  TO  THE 
RESTRICTION  ON  THE  TITLE 


DNV 


NAV 


CKPT1 


Figure  6.  A.  Fly  to  CKPT  or  TGT  Format 


Switch 

Format 

From: 

[FLY  TO]  +  [CKPT] 
or  [TGT] 

Figure  6 

To: 

[FLY  TO] 

No  Action 

[CKPT]  +  Numeric 

Figure  6 

or  [TGT]  +  Numeric 
+  E 

Figure  6 

This  format  is  used  to  select  either  a  checkpoint  or  target  as  the  point  to  compute 
NAV  data  related  to  present  position. 

1.  Selection  of  [CKPT]  will  display  CKPT  after  'TO"  in  the  legend  line. 

2.  After  Selection  of  [CKPT]  one  numeric  must  be  entered  from  the  keyboard 
and  will  display  after  '’CKPT". 

3.  Selection  of  [e]  will  enter  this  data  to  the  DNV  System  and  return  the  display 
to  Figure  6.  The  entered  numeric  will  now  display  in  the  upper  right  hand 
area  of  the  display  after  "CKPT". 

4.  Selection  of  [TGT]  +  numeric  will  change  the  display  back  to  Figure  6  and 
display  "TGT"  +  numeric  in  the  upper  right  hand  area  of  the  display. 
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CKPT 
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UTM 

L/L 
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0  0  0 

Figure  6.  B.  CKPT  Entry  Format 


Switch 

Format 

From: 

[CKPT] 

Figure  6 

To: 

[utm] 

Figure  6.  B.  1 

[L/L] 

Figure  6.  B.  2 

This  format  is  used  to  enter  the  Checkpoint  Number  and  select  the  Coordinate  system 
for  the  checkpoint  entry.  Selection  of  UTM  as  L/L  will  place  the  CDU  in  that  mode 
for  entry  of  coordinates.  The  converse  coordinate  would  be  computed  by  the  Doppler 
NAV  unit  and  be  available  to  the  CDU  for  display. 


1.  The  Checkpoint  number  is  entered  via  die  numeric  keyboard  and  displayed 
in  the  legend  Khe. 

2.  [UTM]  or  [L/L]  is  selected  for  the  coordinate  entry  system. 

3.  Selection  of  [e]  will  display  Figure  6.  B.  1  with  the  checkpoint  +  number 
displayed  in  the  upper  right  hand  corner. 
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Figure  6.  B.  1.  UTM  Coordinate  Entry  Format 


Switch 

Format 

From: 

[E] 

Figure  6.  B 

To: 

[CLO] 

Figure  6.  B.  1. 1 

[EVO] 

Figure  6.  B.  1. 1 

[CL6] 

Figure  6.  B.  1. 1 

[beo] 

Figure  6.  B.  1. 1 

[INO] 

Figure  6.  B.  1. 1 

*[auo] 

Figure  6.  B.  1. 1 

This  format  is  used  to  enter  the  UTM  Spheroid.  Selection  of  any  one  of  the  six 

roids  will  display  Figure  6.  B.  1. 1  and  display  die  Selected  Spheroid  in  the  right 
side  of  the  second  line  of  display. 

Format  can  be  bypassed  by  the  use  of  [STEP]  in  the  Fixed  Switches. 
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DNV 

NAV 

CKPT  1 

ENT  ZONE 

_i)  LlI  LlI 

CKPT 

3  0  0 

UTM 

300 

300 

Figure  6.B.  1. 1. 

UTM  Numeric  Entry  Font 

Switch 

Format 

From: 

[CLO] 

Figure  6.  B.  1 

[EVO] 

Figure  6.  B.  1 

[cu] 

Figure  6.  B.  1 

[beo] 

Figure  6.  B.  1 

[INO] 

Figure  6.  B.  1 

[auo] 

Figure  6.  B.  1 

To: 

[E] 

Figure  6.  B.  1. 2 

w 

Figure  6.  B.  1. 3 

This  format  Is  used  to  enter  the  first  two  numerics  (ZONE)  in  the  UTM  Coordinate 
System. 

1.  Enter  two  numerics  (Legal  entry  1-60).  The  numeric  will  display  in  the 
legend  line. 

2.  Select  [e]  to  enter  the  numerics.  Alpha  entry  display  Figure  6.  B.  1. 2 
will  display. 
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Figure  6.  B.  1. 2.  UTM  Alpha  entry  Format 


Switch 

Format 

From: 

W 

Figure  6.  B.  1. 1 

To: 

M 

Figure  6.B.  1.1 

This  format  is  used  to  enter  the  area  alphas  in  the  UTM  Coordinate  system.  A  total 
of  three  alphas  will  be  entered  from  this  format.  Legal  entries  are  C  thru  X  with 
I  and  O  omitted. 

1.  Enter  three  alphas  which  will  display  as  shown. 

2.  Select  [e]  to  enter  the  alphas.  Figure  6.  B.  1. 1  will  display  for  entry  of  the 
final  numerics.  (Legal  entry  8  digits.) 

9.  After  completion  of  Numeric  entry  from  Figure  6.B.1.1,  actuation  of  E  will 
display  Figure  6.B.I.3. 
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Figure  6.  B.  1. 3.  Mag  VAR  Entry  Format 


Switch 


Format 


From: 


Figure  6.B.  1. 1 
Figure  6.B.  1. 1 


This  format  is  used  to  enter  the  E  or  W  for  magnetic  variation  of  the  checkpoint. 

1.  Enter  [e]  or  [w]  for  the  MAG  VAR. 

2.  Select  [e]  to  enter  the  data.  Figure  6.B.  1.4  will  display  for  entry  of 
numerics. 

3.  Select  [e]  from  6.B.  1.4  after  numerics  have  been  entered  will  enter  the  data 
and  display  Figure  6,  DNV  Submode  format. 

4.  Activation  [STEP]  will  place  the  same  MAG  VAR  if  any  as  inserted  for  the 
previous  CKPT  or  TGT.  Display  will  return  to  Figure  6.  B. 
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Figure  6.B.I.4.  UTM  Numeric  Entry  Format 
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ENT  LAT 
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CKPT 

□  □  □ 

L/L 

□  HD 

Z1  □  0 

Figure  6.B.2.  L/L  Coordinate  Entry  Format 


Switch 

Format 

From: 

[L/L] 

Figure  6.  B 

To: 

M 

Figure  6.B.2.1 

This  format  is  used  to  miter  the  N  or  S  direction  for  Latitude. 

1.  Select  [n]  or  [s]  from  the  keyboard. 

2.  Select  [e]  to  enter  the  data  and  display  Figure  6.B.2. 1  for  further  numeric 
entry. 
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Switch 

Format 

From: 

M 

Figure  6.  B.  2 

To: 

M 

Figure  6.B.2.2 

This  format  is  used  to  enter  the  numeric  for  the  Latitude. 

1.  Select  Numeric  from  the  keyboard. 

2.  Select  [e]  to  enter  the  numeric  and  display  Figure  6.  B.  2. 2  for  entry  of 
Longitude  direction. 
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CKPT 
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□  n  □ 

3  □  □ 

Figure  6.B.  2.2.  Longitude  Direction  Entry  Format 


Switch  Format 

From:  [e]  ~  Figure  6.  B.  2. 1 

To:  [e]  Figure  6.  B.  2.1 

This  format  is  used  to  enter  the  East  or  West  direction  of  the  longitude. 

1.  Select  [e]  or  [w]  for  direction  from  the  keyboard. 

2.  Select  [e]  to  inter  the  data  and  display  Figure  6.  B.  2. 1  for  entry  of  numeric 
data  for  longitude. 

3.  After  completion  of  entry  of  numeric  data,  Selection  of  [e]  from 
Figure  6.  B.  2. 1  will  display  Figure  6.  B.  2. 3. 
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DNV 

NAY 

CKPT  1 

ENT  MAGYAR 

□  □  □ 

CKPT 

3  □  0 

L/L 

□  □  □ 

0  0  0 

Figure  6.  B.  2. 3.  CHECKPOINT  or  TARGET  MAG  VAR  Entry  Format 


Switch 

Format 

From: 

[E] 

Figure  6.B.2. 1 

To: 

[E] 

Figure  6.  B.l  A 

This  format  is  used  to  enter  the  E  or  W  for  Magnetic  Variation  of  the  checkpoint. 

1.  Select  [e]  or  [w]  from  the  keyboard  area. 

2.  Select  [e]  fo  enter  the  data  and  display  Figure  6.B.2. 1  for  entry  of  three 
numerics. 

3.  After  entry  of  three  numerics  from  Figure  6.B.2. 1,  selection  of  [e]  will 
enter  the  data  and  display  Figure  6. 

4.  Activation  of  [STEP]  will  place  the  same  MAG  VAR  as  inserted  for  the 
previous  CKPT  or  TGT.  Display  will  Return  to  6B. 

USI  OR  DISCLOSURE  OF  THIS 
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TGT 
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STAT 

300 

Figure  6.C.  Target  Entry  Format 


Switch 

Format 

From: 

[TGT] 

Figure  6 

To: 

See  Text 

This  format  will  be  used  to  enter  target  coordinates  in  the  same  manner  as  the 
checkpoint  coordinates  were  entered.  The  only  difference  between  Figure  6.B  and 
Figure  6.C  is  that  [¥gt]  is  used  in  Figure  6.C.  The  sequence  of  Target  coordinate 
entry  is  the  same  as  checkpoint  coordinate  entry  starting  at  Figure  6.  B. 

To  Freeze  a  target  without  presetting  a  target  number,  depressing  [FRZE]  then  [e] 
over  desired  target  point  will  enter  target  coordinates  in  the  last  entered  coordinate 
system  in  non  use  target  positions  6-9. 

If  specific  target  number  is  desired,  enter  [FRZE]  +  numeric  0-9. 
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For  freeze  entries,  after  depressing  [e]  the  coordinates  and  the  target  number  of 
frozen  point  are  displayed  on  the  2nd  line. 

If  it  la  desired  to  change  the  target  number,  depressing  a  numeric  and  [E]  will  revise 
auto  selected  target  number. 
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DNV 


STATUS 


TGT  1 


pp 

N  41° 

10.5 

W164°  14.  1 

RGE 

163.5 

63 

GSPD  270 

TKE  104 

BRG 

273 

TRK  122 

XTK  20.5 

TTG 

200 

WND  150/14 

Figure  6.  D. 

Navigation  Status  Display 

Switch 

Format 

From: 

[nav  stat] 

Figure  6 

To: 

[sub] 

Figure  6 

This  page  will  display  all  of  the  flight  information  in  one  page.  Return  to  the  DNV 
format  will  jae  by  selection  of  the  fixed  function  switch  [SUB]  . 
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POS 

USE 

3  0  0 

Figure  6.  E.  Present  Position  Entry  Format 
Switch  Format 


From:  [PRES  POS]  Figure  6 

To:  See  text. 

This  format  is  used  to  enter  the  present  position  in  UTM  or  LAT/LONG  coordinates. 
Selection  of  UTM  or  L/L  will  display  the  function  Figure  6.B.  1  or  Figure  6.B.2  for 
coordinate  entry  in  the  same  manner  as  the  checkpoint  coordinate  entry  was  performed. 

The  only  difference  in  the  function  is  that  [PRES  POS]  will  display  rather  than 

[ckpt]. 
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DNV  8KUP 

WIND  120/15  IRK  122 


CKPT  1 
GSPD  12s| 


WIND 

DIR 

WIND 

SPD 

GSPD 

TRK 

Figure  6.  F.  Backup  NAV  Format 


From: 

To: 


Switch 

[BKUP  NAV] 

[WIND  DIB] 
[WIND  SPD] 
[GSPD] 

[trk] 


Format 

Figure  6 

Figure  6.  F.  1 
Figure  6.  F.  2 
Figure  6.  F.  3 
Figure  6.  F.  4 


This  format  is  used  to  provide  estimated  information  for  the  Backup  mode  in  D  NAV 
when  the  Radar  is  inoperative  but  the  computer  is  still  functioning.  Selection  of  any 
of  the  switches  will  display  that  format  for  entry  of  data. 

[STEP]  may  be  used  to  bypass  menus  in  the  back-up  mode. 
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Figure  6.  F.  1.  WIND  Direction  Entry  Format 


Switch 


Format 


From:  [WIND  DIR]  Figure  6.  F 

To;  [E]  Figure  6.  F 


This  format  is  used  to  enter  estimated  Wind  direction. 


1.  Enter  Three  numerics  for  Wind  direction  from  the  keyboard.  The  number 
will  display  an  the  legend  line  as  entered. 

2.  Select  [E]  to  enter  the  data  to  the  computer.  Figure  6.  F  will  display  with 
the  Wind  direction  displayed  in  the  Second  line. 
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DNV 

BKUP 

CKPT1 

WIND  120/15  TRK  122 
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WIND 

SPD 
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Figure  6.F.2.  Wind  Speed  Entry  Format 
Switch  Format 


From:  [WIND  SPD]  Figure  6.  F 

To:  [E]  Figure  6.  F 

This  format  is  used  to  enter  an  estimated  wind  speed  in  the  backup  mode  of  operation. 

1.  Enter  a  Two  digit  number  for  wind  speed  from  the  keyboard.  The  number  will 
appear  in  the  Jegend  line. 

m 

2.  Selection  of  [E]  will  enter  the  data  to  the  computer  and  display  Figure  6.  F 
with  the  wind  speed  displayed  in  the  Second  line. 
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ONV  BKUP 

WIND  120/15  TRK  122 

CKPT1 

GSPD  125 

ENT  GND  SPD _ 

jJ  LlJ  LlJ 

GSPD 

3  0  0 

3  0  0 
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Figure  G.  F.  3.  Ground  Speed  Entry  Format 
Switch  Format 


From:  [GSPD]  Figure  6.  F 

To:  [e]  Figure  6.  F 

This  format  is  used  to  enter  an  estimated  ground  speed  in  the  event  of  a  Radar  failure. 


1.  Enter  a  three  digit  number  for  the  estimated  ground  speed  from  the  numeric 
keyboard.  The  number  will  display  in  the  legend  line. 

m 

2.  Selection  of  [e]  will  enter  this  data  to  the  computer  and  display  Figure  6.  F 
with  the  ground  speed  displayed  in  the  second  line. 
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DNV 
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ENT  TRK  ANG _ 
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TRK 

3  0  0 

000 

Figure  6.  F.  4.  Track  Entry  Format 


Switch 

Format 

From: 

[trk] 

Figure  6.  F 

To: 

[E] 

Figure  6.F 

This  format  is  used  to  enter  an  estimated  Track  in  the  event  of  a  radar  failure. 

1.  Enter  a  three-digit  Track  Angle  using  the  numeric  Keyboard.  The  number 
will  display  in  the  legend  line. 

2.  Selection  of  [e]  will  enter  this  data  to  the  computer  and  display  Figure  6.  F 
with  the  TRK  Angle  displayed  in  the  Second  line. 
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N  45°  12:  1 
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5 

Figure  6.  G.  Checkpoint  Status  Display 


Switch  Format 

From:  [CKPT  STAT]  Figure  6 

To:  [CKPI  0]  thru  Figure  6.  B 

[CKPT  9] 

This  format  is  used  to  display  the  status  of  the  checkpoints  showing  each  Checkpoint 
with  its  coordinates.  A  checkpoint  can  be  selected  for  coordinate  change  from  this 
format  by  pressing  oh" the  CKPT  Legend.  Figure  6.  B  will  display  with  the  selected 
Checkpoint  numerical  displayed.  New  coordinates  can  be  entered  in  the  same 
manner  as  were  used  for  original  checkpoint  entries. 

This  information  will  appear  on  two  pages  0-5  on  page  1/2  &  6-9  on  page  2/2. 
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Figure  6.H.  Update  Formats 


Switch 


Format 


From:  [UP  DATE]  Figure  6 


To:  [FRZE] 

[UP  DATE] 


Figure  6.  H 
Figure  6 


This  format  will  be  used  to  update  present  position  from  a  stored  checkpoint.  The 
update  can  be  accomplished  in  one  of  the  two  following  ways: 

m 

1.  Update  to  Existing  Checkpoint 

An  existing  checkpoint  that  has  its  coordinates  already  entered  into  the  system 
can  be  used  to  update  present  position  in  the  following  manner. 

A.  Select  [UP  DATE]  prior  to  arriving  at  the  checkpoint.  Update  format 
Figure  6.H  will  display. 
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B.  Select  [CKPT]  and  numeric  to  indicate  the  update  will  be  made  in 
reference  to  the  checkpoint  displayed.  If  checkpoint  displayed  is  the 
desired  reference  point  proceed  to  step  C. 

C.  Select  (FRZE]  when  the  selected  checkpoint  is  flown  over.  This  action 
will  store  the  coordinates  of  the  checkpoint  as  computed  by  the  Navigation 
system  and  compare  them  to  the  previously  entered  checkpoint  coordi¬ 
nates.  The  difference  in  Range  will  be  displayed  in  the  legend  line  with 
’•UPDATE  DIST"  displayed  before  the  number. 

D.  If  the  operator  elects  to  upda.3  the  system,  [UP  DATE]  will  be  selected 
to  accomplish  the  update  and  DNV  Submode  format  Figure  6  will  display. 

Update  to  New  Checkpoint 

A  new  checkpoint  or  terrain  feature  can  be  used  for  update  purposes  if  the 

coordinates  are  known. 

A.  Select  [UP  DATE]  from  Figure  6  prior  to  reaching  the  new  Terrain 
feature. 

B.  Select  [NEW]  from  Figure  6.  H  to  inform  the  system  that  the  update 
will  be  compared  against  a  new  set  of  coordinates  to  be  entered  by  the 

operator. 

C.  The  coordinates  for  the  New  point  can  be  entered  before  or  after  over¬ 
flying  the  point.  When  [NEW]  is  selected,  prompting  will  display  in  the 
legend  line  for  the  coordinate  system  that  is  presently  in  the  system.  The 
operator  will  select  [DATA  ENT]  to  enter  L/L  or  UTM  in  the  previously 
described  maimer. 

D.  As  the  New  point  is  overflown  selection  of  [FRZE]  computed  coordinates 
of  the  point  for  comparison  with  the  entered  coordinates.  The  difference 
will  be  displayed  in  the  second  line  of  the  display. 

E.  The  operator  can  select  to  update  the  system  by  activating  [UP  DATE] . 
The  display  will  return  to  Figure  6. 
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TGT  STATUS 
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E  57.22 
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Figure  6. 1 

Target  Status  Display 

Switch 

Format 

From: 

[TGT  stat] 

Figure  6 

To: 

[PRl] 

Fixed 

Tills  display  is  used  to  display  the  status  of  the  Targets.  The  system  will  have  the 
capability  to  store  up  to  10  targets  with  the  coordinates. 

This  display  will  be  on  two  pages.  Targets  0-4  on  page  1/2  &  5-9  on  page  2/2. 


USI  OS  DISCLOSURE  OP  THIS 
OATA  IS  SUBJECT  TO  THE 
RESTRICTION  ON  THE  TITLE 
PAGE  OP  THIS  OOCUMENT 
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NORM 

M2 


M3A 


M4A 


M-l 

M-2 

M-3A 

STAT 

M-4 

NORM 

STBY 

ANT 

M-C 

RAD 

TEST 

TEST 

Switch 


F  igure  7. ,  IFF  Submode 


Format 


From: 

To: 


M-l 

M-2 

M-3A 

M-4 

ANT 

M-C 

NORM 

STBY 

RAD  TEST 

TEST 


Figure  1 
Figure  7.  A 

Inserted  as  fixed  data  in  ROM 

Figure  7.  C 

Figure  7. D 

Figure  7.  E 

Figure  7 

Figure  7 

Figure  7 

Figure  7 

Figure  7 


"NORM"  -  Activation  of  "NORM”  will  place  the  IFF  in  the  normal  mode  of  operation 
and  display  "NORM"  on  the  top  line  of  the  display. 

"STBY"  -  Activation  of  this  switch  will  place  the  IFF  in  the  standby  mode  and  display 
"STBY"  in  the  top  line  of  the  display. 


USE  OS  DISCLOSURE  OF  THIS 
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"RAD  TEST'*  -  Activation  of  this  momentary  switch  will  enable  the  IFF  to  test  its 
receive  functions  with  the  help  of  an  outside  source. 

"TEST"  -  Activation  of  ["TEST"]  and  then  any  of  the  mode  switches  M-l  through 
M-4  will  request  a  test  of  that  IFF  function.  The  test  results  will  be  displayed  in 
the  second  line  of  the  display. 

To  turn  any  modes  (M-l  to  M-4)  on,  use  the  following  procedure:  EX:  M-l 


Select  the  mode  by  pressing  [M-l]  ;  then  [ON]  MI  will  appear  in  the  2nd  line. 


To  turn  any  mode  off,  use  the  following  procedure:  EX:  M-l 


Press  [M-l]  then  [OFF]  MI  will  be  deleted  from  the  2nd  line. 
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3  □  □ 

Figure  7.  A.  M-l  Code  Format 


Switch 

Format 

From: 

[M-l] 

Figure  7 

To: 

M 

Figure  7 

This  format  is  used  to  enter  the  M-l  code  for  the  IFF  and  operator  in  the  following 
manner: 

1.  [M-l]  CODE. will  be  displayed  in  the  legend  line.  The  code  will  be  entered 
by  selection  from  the  numeric  keyboard.  Legal  entries  are  from  00  to  73. 

2.  [’«"]  can  be  used  to  clear  the  entry  as  in  previous  formats. 

3.  ["E"]  will  be  used  to  enter  the  code  and  will  switch  the  display  back  to 
Figure  7,  where  M-l  and  its  code  will  be  displayed  in  the  top  line  of  the 
display. 
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IFF 


NORM 


From:  (M-2)  (GAUD)  Figure  7 

To:  E  Figure  7 

This  format  will  be  used  to  enter  the  M-2  code  which  is  a  guarded  code: 

1.  [M-2]  CODE  will  be  displayed  in  the  legend  line.  The  code  will  be  entered 
by  selection  from  the  numeric  keyboard.  Legal  entries  are  from  0  to  7777. 

2.  ["C"]  can  bcTused  to  clear  the  entry  for  corrective  purposes  as  described 
previously. 

3.  [”E"]  will  enter  the  M-2  code  to  the  system  and  return  the  display  to 

figure  7. 
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IFF 
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YORM 

M3A 

ENT  CODE 
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urns 
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300 

Figure  7-C.  M-3A  Code  Format 


Switch  Format 

From:  M-3A  Figure  7 

To:  E  Figure  7 

This  format  is  used  to  enter  the  M-3A  code: 

1.  [M-3A]  CODE  will  display  in  the  legend  line.  Variation  for  the  code  will  be 
entered  by  use_of  the  numeric  keyboard.  Legal  entries  from  0  to  7777. 

2.  ["C"]  may  be  used  to  clear  the  entry  for  corrective  purposes  as  described 
previously. 

3.  ["E”]  will  be  used  to  enter  the  new  code  to  the  IFF  system  and  will  return 
the  display  to  Figure  7. 
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Switch 

Formats 

M-4 

Figure  7 

A 

Figure  7 

B 

Figure  7 

HOLD 

Figure  7 

AUD 

Figure  7 

AUD  LITE 

Figure  7 

OUT 

Figure  7 

This  format  is  used  to  select  the  M-4  mode  of  operation  in  the  following  manner: 

1.  ["A”]  -  Selection  of  this  switch  will  place  the  IFF  in  the  M-4A  mode  and 
display  "M-4A"  in  the  top  display  line. 

2.  [”B"]  -  Selection  of  this  switch  will  place  the  IFF  in  the  M-4B  mode  and 
display  "M-4B"  in  the  top  display  line. 

3.  ["HOLD"]  -  Selection  of  this  switch  will  place  the  IFF  in  the  hold  mode  and 
display  "HOLD"  in  the  top  display  line.  Mode  4  code  will  be  retained  if  power 
is  not  turned  off  for  15  seconds. 
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4.  [aud]  -  Selection  of  this  switch  will  place  the  IFF  in  the  AUD  mode  and 
display  "AUD"  in  die  second  line  display  line. 

5.  [AUD  LITE]  -  Selection  of  this  switch  will  place  the  IFF  in  the  audio  and 
light  mode  and  display  "AUD  LITE"  in  the  second  display  line. 

6.  [OUT]  -  Selection  of  this  switch  will  turn  the  AUD  or  AUD  LITE  mode  off. 
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DIV 
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Figure  7.  E. 

ANT  Mode  Format 

Switch 

Format 

From: 

ANT 

Figure  7 

To: 

TOP 

Figure  7 

DIV 

Figure  7 

BOT 

Figure  7 

'  4A 
4B 


This  format  is  used  to  select  the  antenna  mode: 

1.  [’TOP"]  -  Selection  of  this  switch  will  place  the  antenna  in  the  top  pattern 
and  display  ["TOP"]  on  the  second  line  of  the  display  in  Figure  6. 

2.  ["DIV"]  -  Selection  of  this  switch  will  place  the  antenna  in  the  divided 
antenna  pattern  and  display  DIV  on  the  second  line  of  the  display  in  Figure  6. 

3.  ["BOT"]  -  Selection  of  this  switch  will  place  the  antenna  in  the  bottom 
antenna  pattern  and  display  ["BOT"]  in  the  second  line  of  the  display  in 
Figure  7. 
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ANT  -  TOP 


Figure  7.  F  Stat  Page 


From: 


Switch 


[STAT  PAGE] 
See  text. 


Format 

Figure  2 
Figure  2.  B 


This  format  is  primarily  a  review  of  IFF  status.  Active  modes  are  indicated  by 
die  asterisk  symbol.  Return  to  any  mode  may  be  selected  for  re-assignment  in 
the  following  manner: 

1.  Select  mode  for  re-assignment  by  pressing  on  mode  legend. 
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